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PREFACE 


This publication is organized in three 
sections. Section 1 is an introduction 
describing the relationship between the 
compiler and the Operating System, and the 
overall organization of the compiler. Sec- 
tion 2 is a description of the compiler 
phases, including a general description of 
each logical phase followed by descriptions 
of each of the physical phases contained in 
the logical phase. Section 3 consists of 
flowcharts and routine directories. The 
flowcharts show the relationship between 
the routines of each phase, while the 
directories list the routines and their 
functions. 


I PL/I (F) Programmer s Guid e, Form C 28 -6 59 4 


PL/I Language Specifications, Form 
C28-6571 


Although not prerequisite, the following 
publications are related to this manual and 
should be consulted. 

IBM S ystem/36 0 O p e rat ing S yst em : 

Int rodu ction to C ontrol P rogram Logic , 

Form Y28-6605 


The appendixes appearing at the end of 
the publication contain topics of special 
importance and reference material. 

The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 

Prerequisite to the use of this publica- 
tion are the following: 

i IBM System/360 : 

I P rinc i ples of Ope ra tion , Form A22-6821 
I PL/I Ref eren ce Manu al, Form C28-3201 
I IBM Sys t em/360 O per ating System : 


Sequential Access Methods, Pr ogram L o gi c 
Manual , Form Y28-6604 

Operator* s Guide, Form C 2 8- 654 0 

Supervi sor and Data Man ag ement Seryices , 
Form C28-6646 

S uperv isor and Data Mana ge ment Macr o 

Instruc t ion s, Form C28-6647 

Syste m Program me rs Gu ide, Form C28-6550 

Sto rage Estima tes, Form C28-6551 

S yst em, Generation, Form C28-6554 

PL/I Subroutine Library, P rogram L ogic 

Man ual, Form Y28-6801 
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implementation of PL/I multitasking, based storage and list processing, 
and the extension of input/output facilities which include LOCATE mode 
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in stream I/O, and data interchange facilities with OS COBOL data sets. 
Other changes provide additional compile-time facilities, and improved 
object-time performance in certain areas of application. These and other 
changes are indicated by a vertical line to the left of the change; new 
or revised illustrations are denoted by the symbol • to the left of the 
caption. 
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SECTION Is INTRODUCTION 


PURPOS E OF THE COMP ILER 


The Operating System/360 PL/I (F) Com- 
piler analyzes and processes source pro- 
grams written in PL/I, and translates them 
into object programs in load module form 
suitable for input to the Linkage Editor. 
When errors are detected in the source 
program, appropriate diagnostic messages 
are produced. The compiler functions with- 
in Operating System/360 and may be used on 
machines where at least 45,056 (44K) bytes 
of core storage are available for the 
compilation (exclusive of storage require- 
ments for the Operating System) . 


THE COMPILER AND OP ERATING SYSTEM/360 


The PL/I (F) Compiler is a processing 
program of Operating System/360. The com- 
piler consists of a number of phases under 
the supervision of compiler control rou- 
tines. The compiler communicates with the 
control program of the Operating System, 
for input/output and other services, 
through the control routines. 

A compilation is introduced as a job 
step under the control of the Operating 
System, via the JOB statement, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control Lan- 
guage, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A discus- 
sion of the introduction of a compilation 
as a job step, and of the available catal- 
oged procedures, is given in the publica- 
tion IBM System/360 Operat in g Syst e m, PL /I 

(F) Programmer's Gu ide, Form C28-6 59 4. 

The source program to be compiled 
appears as input to the compiler on the 
SYSIN data set. The compiler uses SYSUT1 
(required if the main storage is insuffi- 
cient to contain the program) and SYSUT3 
(required if the 48-character set or the 
compile-time processor is used) as work 
delta sets. The SYSPRINT data set is manda- 
tory. The SYSPUNCH and SYSLIN data sets 
are used, depending on the options speci- 
fied by the source programmer, to contain 
the output from the compiler. 

The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 


A compilation is initiated by loading 
the compiler control routines from the Link 
Library. The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 

1. Act as the interface between the com- 
piler phase and the Operating System, 
controlling all input/output, storage 
allocation, program interruptions, 
storage dumping, etc. 

2. Supervise the loading of compiler 
phases in accordance with source pro- 
gram options and information obtained 
from the source program by the compil- 
er phases. 

3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
spilling from main storage to backing 
storage in order to accommodate large 
source programs, the conversion of 
symbolic references to absolute 
addresses, and the conversion from 
absolute addresses to symbolic ref- 
erences . 

4. Provide a number of routines to assist 
in compiler debugging. 

The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 
storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text) . 

To determine the block size a table 
contained in Phase AB is used. The storage 
size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. 

The options are instructions to the 
compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 
found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded. These instructions are also placed 
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in coded form in the communications region 
of the dictionary, generally in the Control 
Code word (see CCCODE in Appendix B) . 


COMPILER ORGANIZATION 


information as the addresses of the 
heads of chains, the symbolic start of 
text, etc. The remainder of the dic- 
tionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler pro- 
per, the format of all dictionary 
entries will be found in Appendix C. 


The PL/I (F) Compiler comprises a number 
of logical phases, each of which consists 
of several physical phases. 

The compiler phases and their corres- 
ponding functions are indicated in Figure 
2, and the organization of the compiler is 
shown in Figure 3. 

Control is passed between the phases of 
the compiler via the control routines. 
After each phase has been executed, it 
branches to the control phase, which sel- 
ects from its load list the next phase to 
be executed. 

Communication between the phases is 
implemented by the following: 

1. The text str ing . The text string at 

the start of the compilation is input 
text. This is converted by the 
compile-time processor, if necessary, 
into a string which is PL/I source 
text. The characters in this string 
are translated into a code internal to 
the compiler. The phases of the com- 
piler gradually process the text until 
the final form is the object program, 
consisting of a string of machine 
instructions. For the compiler pro- 
per, the text code bytes used, and 
formats of statements at different 
stages of the compilation, will be 
found in Appendix D. 

The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has a symbol- 
ic name which is independent of the 
physical location of the block in 
storage. Thus, the text blocks may be 
moved around in core storage under the 
supervision of the compiler control 
routines, and spilled on to backing 
storage if insufficient main storage 
is available. 

2. Th e dictio nary. The dictionary con- 
sists of a number of blocks, each with 
a symbolic name. Part of the first 
dictionary block is used as a communi- 
cations region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The com- 
munications region contains such 


r T * 
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Processor 


+- 


Executes compile-time 
statements and produces 
input for further compiler 
processing . 
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Check source 
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characters . 


program syn- 
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Dictionary 
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attribute declarations; 
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erences to dictionary 
entries . 


Pretranslator 


+- 


Rearrange I/O statements; 
create temporary variables 
for procedure argument 
expressions; convert array 
and structure assignments 
to DO loops; remove iSUB 
expressions . 


Translator 


Convert PL/I syntactical 
form to internal triple 
form. 


+- 
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+- 


Map all structures and 
arrays to align elements on 
correct storage boundaries. 


Pseudo-code 


Convert triples to pseudo- 
code. 


+- 


Storage 

allocation 


Allocate storage for items 
in AUTOMATIC blocks or 
STATIC storage area. 


+■ 
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Allocate physical registers 
in place of symbolic reg- 
isters requested by earlier 
phases . 


•f- 


Final 

assembly 


Complete translation to ma- 
chine code; produce loader 
text; produce object code 
listing . 


+- 


Error 
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Prints out any necessary 
diagnostic messages. 


Figure 2. Logical Phases of the Compiler 
and their Corresponding Func- 
tions 
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LOGICAL PHASES 


The logical phases of the compiler and 
their main functions are summarized in the 
following paragraphs. 


Compile-time Proce ssor Phas e 


The Compile-time Processor Phase reads 
input text, executes any compile-time 
statements contained in it, and modifies 
text as directed, producing modified text 
for further compiler processing. 


R ead-I n Phase 


The Read-In Phase is responsible for 
source program syntax checking, and the 
removal, from the text string, of all 
superfluous characters, such as comments 
and non-significant blanks. 


Dictionary Phase 


The Dictionary Phase removes all BCD 
identifiers and attribute declarations from 
the source string, and replaces them by 
symbolic references to dictionary entries. 
The dictionary entries contain all the 
consistent declared attributes, and all the 
attributes specified in the language in 
default of source program specifications. 
Error messages are generated for all incon- 
sistent attributes. 


Pretranslator Phase 


The Pretranslator Phase processes those 
features of the language that are more 
easily processed in their original PL/I 
form, than when the original syntactic form 
has been lost in later phases. The Pre- 
translator carries out these modifications 
which include the rearranging of the order 
of certain I/O statements, the creation of 
temporary variables for procedure arguments 
which are expressions, the conversion of 
array and structure assignments to a series 
of 'DO' loops surrounding scalar assign- 
ments, and the removal of iSUB expressions. 


Tra nsl ator Phase 


The Translator Phase converts the origi- 
nal PL/I syntactic form to an internal 
syntactic form, referred to as "triples." 


Triples consist of the original source 
program operators and operands, but rearr- 
anged so that the operations specified in 
the source string may be carried out in 
their proper order. 


Aggr egates Phas e 


The Aggregates Phase carries out all 
structure and array mapping, so that ele- 
ments are aligned on the correct storage 
boundaries. When it is not possible to 
carry out the rr.apping at compilation time, 
such as when the aggregates contain string 
lengths or array bounds which are specified 
by expressions, object code is produced to 
do it at object time. This phase also 
checks that items DEFINED on arrays and 
structures can be mapped consistently. 


Pseudo-Cod e Phas e 


The Pseudo-Code Phase converts the tri- 
ples to a form closely resembling machine 
instructions, in which registers are rep- 
resented symbolically, and storage loca- 
tions are represented by dictionary ref- 
erences with offsets. The final pseudo- 
code version of the text also contains a 
number of special pseudo-code items for the 
guidance of later phases. 


Storag e A l lo cat io n Ph a se 


The Storage Allocation Phase searches 
the dictionary for all entries requiring 
storage, and allocates offsets to each 
item, either within its AUTOMATIC block, or 
within the STATIC storage area. Code is 
compiled to set up dope vectors and 
pointers at object time, for allocations of 
controlled variables and temporaries, the 
storage for which must be obtained during 
the execution of the object program. Pro- 
logue code is generated for each block of 
the object program. 
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Regist e r Alloca t ion Ph ase 


The Register Allocation Phase allocates 
physical registers to the symbolic reg- 
isters which have been requested by earlier 
phases, and also ensures that all the 
storage location offsets allocated in pre- 
vious phases can be addressed by the inser- 
tion of additional instructions, where nec- 
essary . 


Final As s embly Phas e 


The Final Assembly Phase completes the 
translation to machine code instructions, 
by calculating branch destination addresses 
inserted symbolically by earlier phases. 
Loader text is then produced for the 
machine instructions, constants, INITIAL 
values in STATIC storage, and all the 


constant data required for block initiali- 
zation. ESD and RLD cards are produced to 
enable the object program to be edited by 
the Operating System/360 Linkage Editor. 
The Final Assembly Phase also produces a 
listing of the object code produced. 


E rror Edi t or P h as e 


The Error Editor Phase is entered at the 
end of every compilation. The dictionary 
is examined to determine whether there are 
any diagnostic messages to be printed out. 
If there are none, the compilation is 
terminated by the compiler control. If 
there are diagnostic messages to be printed 
out, the error dictionary entries are proc- 
essed and the messages are printed. The 
texts of all the diagnostic messages are 
|held in modules XG through YY. 
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SECTION 2: COMPILER PHASES 


I N ote ; For descriptions of terms and abbreviations used in the text during a compilation 
| which are mentioned in this section of the Program Logic Manual, refer to Append ix D , 11. 


COM PI LE R CON TROL AND 48- CH ARAC TE R SET 
PREPROCESSOR 


COMPILER CONTROL 


When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the Operating \System, the 
Compiler Control module IEMAA is loaded and 
entered. IEMAA is resident during the 
whole compilation; it controls the follow- 
ing functions: 

Initialization 

Character translation 

Text and dictionary block control 

Scratch storage control 

Phase loading 

Diagnostic message control 
Input/output control 
Program check handling 
Job termination 


Ini t iali z ation 


Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the compil- 
er, and provides the following functions: 

Opens SYSIN and SYSPRINT data sets 

Constructs a phase directory (for details 
refer to Appendix B) 

Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 

Scans option list 

Obtains space for text blocks and dic- 
tionary blocks. 

Opens SYSUT3 and SYSPUNCH as necessary 

Prints a list of options used in current 
compilation 


| Loads phase AN to handle a normal dic- 
j tionary, or phase AL if an extended 
j dictionary is requested. 

On return from module AB, the first compil- 
er phase is loaded and entered. 


C haract er Transl ation Tab les 


The character translation tables (see 
Appendix D.l) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code tack to the external form. 
These tables thus prevent the compiler from 
becoming character code dependent, and ena- 
ble the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation pro- 
per . 


Com muni cations Re gion 


The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation . 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the communi- 
cations region during compile-time process- 
ing is described in Appendix J.) 


Te xt and D ic ti ona ry B lock Co ntr ol 


Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large, 
blocks are placed on an external file, 
SYSUT1 . The block control routines contain 
the input/output control. 
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Scratch Storage Contr ol 


Phase Directory 


Scratch storage of 4K bytes is guaran- 
teed to all phases. The control routines 
split the 4K-block into discrete sections, 
and allocates them as required. The sec- 
tions are in multiples of 512 bytes. 


Storage Requirem ents 


The (F) Compiler requires main storage 
for the following purposes : 

Compiler processing phases 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. (The error 
message phases have their own phase direc- 
tory, which is built in phase XB and uses 
the same space in AA as the phase directory 
proper . ) 


Print buffers 
Compiler control routines 
Dictionary area 
Text area 


The phase directories are constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM S ystem/3 60 
Opera ting Syst em, Control P rogram Serv ices , 
Form C28-6541. For details of the phase 
directory see Appendix B. 


Input/Output buffers 


Input/Output routines (QSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 


D iagnosti c Messag e Co ntr ol 


Diagnostic message control routines 
cause diagnostic messages to be placed in a 
chain in the dictionary. 


During the rest of the compilation four 
dictionary blocks and four text blocks are In put /Outp ut Cont rol 
available in storage simultaneously. 


The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 


The I/O control routines involved act as 
an interface between the compiler phases, 
and SYSIN, SYSPRINT, SYSLIN, and SYSPUNCH 
data sets. (See Figure 4.) 


Pro gr am Ch eck Handling 


Appendix E shows details of storage 
allocation. 


The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 


Phase Loadin g 


Phase loading routines include phase 
marking (where phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 


Job Termination 


The compiler completion code is picked 
up and control is returned to the calling 
program. 
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The compiler completion codes are as 
follows : 

Code Meaning 

0 No diagnostic messages issued; com- 

pilation completed with no errors 

4 Warning messages issued; program 

compiled 

8 Error messages issued; program com- 

piled but with errors; execution 
may fail 


12 Severe error messages issued; com- 

pilation may be completed but with 
errors, successful execution impro- 
bable. If a severe error occurs 
during compile-time processing, a 
listing of the PL/I text on SYSUT3 
will be printed if the SOURCE 
option is specified. The compila- 
tion will be terminated. 


16 Terminal error messages issued; 

compilation terminated abnormally 
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| 1 AA , AC, and AE are modules of the control phase, and contain actual I/O routines which) 
| interface with the 0/S access methods ( BSAM , QSAM) . I/O activity shown for other j 

j modules indicates that these modules are utilizing the I/O routines. j 

j 2 AS may read from included data sets in addition to those shown in the table. j 

j 3 If the SIZE option results in IK text and dictionary blocks, SYSUTl is opened by j 

j Module AB. In the case of other SIZE options, SYSUTl is opened by Module AA when the j 

j available main storage is full. The timing depends on the size of program to be j 

j compiled. | 

| 4 AK closes only the spill file SYSUTl when the batch option is used and a further j 

j source program is to be compiled. | 

| 5 AK closes all other files upon termination of a single or batch compiler run. j 

| | 6 SYSPUNCH is opened if MACDCK option specified. j 

L 1 

•Figure 4. Input/Output Usage Table 


COMPILER CONTROL MODULES 


In addition to modules AA and AB, furth- 
| er modules, AC, AD, AE, AF, AG, AH, AI , AK, 
j AL, AM, AN, and JZ are used in compiler 
control. The functions of these modules 
are briefly described in the following 
paragraphs . 


Module AC 


Module AC controls reading and writing 
operations on SYSUT3, the intermediate 
file. It is loaded only if the CHAR48 or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 
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Module AD 


Module AD performs inter-phase dumping. 

All specified active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. If the DUMP option 
includes either I, for the Annotated Dic- 
tionary Dump, or E, for the Annotated Text 
Dump, or both, then phase AD will load 
either phase AH, or phases AI and AJ, or 
all three, to produce the required output. 


The DUMP Option 


The DUMP option which is specified in 
the FARM field of the EXEC card indicates 
where dumping of main storage is to take 
place. It may be specified in one of the 
following ways: 

1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 

2. DUMP= (AREA, x ± , x 2 , x 3 , . . . . x n ) means d 
dump of the storage after the named 
phase. 

AREA is any combination of TDPSCIE: 

T text blocks 
D dictionary blocks 
P phases loaded 
S scratch storage 
C control phase 
I annotated dictionary blocks 
E annotated text blocks 

The general syntax is:: 

DUMP (= ( [AREA] , { x | (y,z) },...)] 

A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 

The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 

If AREA is omitted the default taken is 
DTSP . If a program check occurs and DUMP 
has been specified then AREA will be given 
the default DTSPC. 

Use of the DUMP option may cause the 
compiler to use more core than the SIZE 
option specifies. This is because SIZE 
specifies the amount of core the compiler 
can use for normal compilation and does not 
allow for the internal compiler diagnostic 
dumps . 


[Example of an EXEC card using the DUMP 
| option : 

| //STEP1 EXEC PR0C=PL1LFC , 
j PARM.PL1L='DUMP=(TE,QJ) ' 

| This statement specifies compilation using 
jthe DUMP option to obtain a printout of the 
j text blocks, the annotated text blocks, and 
jof storage after the completion of compiler 
j phase QJ. 


M odule AE 


Module AE is the finalization of the 
READ-IN Phase control. (See Fig. 4, Note 1 ) 


Module AF 


Module AF is a control section consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation time. A descrip- 
tion of the use of Module AF is given in 
Appendix G. 


Module A G 


Module AG closes SYSUT3 for output, and 
re-opens it for input. 

The closing and opening operations are 
performed in the following order: 

CLOSE 

alter macro-type in data control block 
(DCB) 

OPEN (INPUT) 

switch routine ZURD to point at SYSUT3 
DCB 


Module A H 


This module produces a dump of the 
dictionary. It prints out the communi- 
cations region in the first block, and 
the offsets tables for each block if the 
extended dictionary option is in use. 
The remainder of each block is printed 
out entry by entry. The BCD is translat- 
ed for those entries containing BCD. At 
the end of the dump, a list of all the 
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dictionary codes used is given, with an 
explanation for each code. 

The module is called by phase AD only 
if an I is specified in the AREA field of 
the DUMP option. 


Modules AI, AJ 


Module AI is called if E is specified 
in the AREA field of the DUMP option. It 
provides an ' easy-to-read ' text print in 
which the triples and pseudo-code items 
comprising the text are printed separate- 
ly. This option is available between 
phases IA and OG inclusive. 

Module AJ is called if I is specified 
in the AREA field of the DUMP option to 
produce the Annotated Dictionary Dump. 


Module AK 


Module AK is the closing routine of 
the compiler. Its function is to release 
core used for dictionary, text blocks, 
scratch storage, and completed phases. 
If batch compilation is not specified, 
module AK closes all the files used by 
the compiler. If a batch compilation is 
specified, a check is made to determine 
whether any source programs are still to 
be compiled. Where there are none module 
AK closes all files. Where one or more 
programs remain to be compiled, the spill 
file only is closed, the batch delimiter 
card is scanned for syntax errors, and 
control is returned to module AA. 


Module AL 


This module contains the control rou- 
tines for dictionary and text-block han- 
dling for the extended dictionary. 


Module AM 


Module AM marks phases as either wanted 
or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 

AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 


I M odule AN 


| This module contains the routines for 
j dictionary and text-block handling for the 
jnormal-sized dictionary. 


Module JZ 


Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 


48-CHARACTER SET PREPROCESSOR 


Phase BX is the 48-character set prepro- 
cessor. It is loaded on programmer option 
and receives, as input, source text in the 
48-character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto back- 
ing storage ready for Phase Cl, the first 
pass of the Read-In Phase. 

The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
operator keywords, for periods, and for 
commas . Items within comments or character 
strings are ignored. 

When a possible initial letter is disco- 
vered, tests are made to determine whethej: 
or not one of the reserved operator key- 
words has been found. If one has been 
found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a semi- 
colon if the comma-period pair is not 
immediately followed by a numeric 
character . 

Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 

Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 



original. 

The preprocessor uses Compiler Control 
routine ZURD to obtain input, and routine 
ZUBW to place its output onto backing 
storage . 

Note : If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase BX is bypassed. 


COMPILE-TIME PR OCES SOR P HAS E 


The compile-time processor consists of 
six physical phases. Each of these phases 
is executed once, unless an INCLUDE data 
| set is encountered. In this case certain 
phases will be re-executed. 

The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text blocks. Dur- 
ing this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 

A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
| PL/I source program contained on SYSUT3 
j and, optionally, a punched card deck. 

If during the second pass, an INCLUDE 
| data set is processed, the entire procedure 
j indicated above is executed recursively to 
process this text. 

Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 


Line Numberinc 


As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them. These line numbers 
are also output on SYSUT3 , to aid the user 
in determining from which input line a 
particular line of output came. 


Ph a se AS 


This phase, consisting of one physical 
module, is loaded if the option MACRO is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 

This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
| an INCLUDE data set is processed. In this 
case phase AS reloads the processing phases 
to process this data set. 

In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 


Phase AV 


This phase consists of one physical 
block. Its purpose is to initialize cer- 
tain cells in the communications region for 
the compile-time processor phases. 


I Phase BC (BE, BF) 


Phase BC consists of three physical 
modules, BC, BE, and BF. Module BE con- 
tains the control routine. 

Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a compile- 
time statement is encountered, it is 
encoded into a set of interpretive instruc- 
tions and, except for compile-time proce- 
dures, added to the current text block. 
Compile-time procedures are similarly 
encoded, but are placed in separate text 
blocks . 

As compile-time statements are encoded, 
all non-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DOs. 

During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
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given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 


I Phase BG (BI, BJ) 


| Phase BG consists of three physical 
modules: BG, BI, and BJ, which contain the 
control routine, the macro-code interpret- 
er, and the built-in function handler, 
respectively . 

In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time vari- 
ables or compile-time statements, which it 
uses to produce the output text. As line 
numbers are encountered in the text, they 
are placed into a location containing the 
current line number. This is used both for 
phase BG diagnostics and by the output 
editor. 

If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 

If the scan encounters an encoded 
compile-time statement (built by phase BC), 
control is passed to an interpreter. This 
interpreter executes the statement — pos- 
sibly repositioning the scan cursor -- and 
returns to the scan. 

The output of this phase is a PL/I 
| source program contained on SYSUT3 , and, 
j optionally, as a sequenced card deck. 


I Phase BM (BO) 


Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the sever- 
ity level of messages required. If there 
are no messages, it passes control to the 
clean up phase (BW) . If diagnostic messa- 
ges are required, the phase loads BN to 
process them after scanning the chains and 


| indicating where the text is to be found, 
j from the message directory block, module 
| BO . 


I Module BN (BP, BV ) 


The text of all compile-time processor 
error messages is kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error mes- 
sages have been processed, module BN 
returns control to BM. 


P hase BW 


The purpose of this phase to set all 
tables and communication region cells to 
the values required by the compiler proper. 
In addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 

If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies) , and compilation will be bypassed. 


TH E REA D-I N LOGIC A L PHAS E 


The Read- In Phase is implemented as five 
discrete physical phases, each of which 
processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 
internal code by means of a translate table 
provided by compiler control. 

The source text is scanned for syntacti- 
cal errors. During this time an output 
string is built up, which consists essen- 
tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements are num- 
bered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains). If the SOURCE option 
t applies, source statements, with their num- 
jber, and optionally, their block levels and 
j DO-nest levels, are printed out immediately 
J after they have been read. 
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When the input text provides an end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been 
completely processed. By keeping a count 
of PROCEDURE, BEGIN, DO, END, ON, and IF 
statements, the phase can detect when the 
logical end-of -program indication is found. 
If there are more records after the end of 
the external procedure, they are ignored. 

If an end-of-file indication is encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 

The output of the Read-In Phase provides 
a syntactically correct output string; a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 


Stateme nt Nu m berin g 


All statements are given a sequential 
number. This includes each compound state- 
ment, each statement contained in a com- 
pound statement, block and group delimiting 
statements, and null statements. The ELSE 
clause is not regarded as a statement for 
numbering purposes. The numbering of the 
statement is indicated on the source list- 
ing. Diagnostic messages also refer to 
these statement numbers. 


Statement a n d Entry Labels 


Statement and entry labels appearing in 
the source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region- may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG, 

When a label declaration is found, an 
entry is made in the label table with a 
statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 

Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 


If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see Appendix 
C. 2) . 


Chains Con st ru cte d by Read-In 


To provide rapid scanning in the 
dictionary phases, the following chains are 
constructed by the Read-In Phase: 

The CALL chain 

The PROCEDURE-ENTRY-BEGIN chain 
The DECLARE chain 
The ALLOCATE chain 


Errors and Dia g nostic Mes s ages 


As the source text is scanned it is 
syntactically analyzed. Keywords are iden- 
tified and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
are not normally analyzed. This is left 
for Phase EK. 

When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is generat- 
ed. The main aim of the Read-In Phase is 
to present syntactically correct text to 
subsequent compiler phases. Certain cor- 
rections are performed without prejudicing 
the complete compilation. 

Detected errors cause a diagnostic mes- 
sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and so on). The 
message is decoded and printed out by the 
Error Editor. 

Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement syntacti- 
cally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circum- 
stances will include at most the first ten 
characters of the text that is skipped. 
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The Output String 


The output string is so arranged that a 
complete statement never spans storage 
blocks. One of the conditions of a suc- 
cessful compilation is that the output 
resulting from any statement must not 
exceed the block. This restriction, howev- 
er, does not apply to DECLARE statements. 
Formats of the statements appearing in the 
output string are given in Appendix D.2. 


Identifiers 


All identifiers which are not recognized 
as keywords in the source text appear in 
the output string. 


Bytes 


4K i 

I CC t 

7K T T T T 'll 

| CE j CK I CN | CR j CR |j 

8K (- -j- + + + ^ 

j CG | CL | CO j CS j CV || 

12K y + + + + ^ 

| Cl I CM I CP I CT I CW 1 

16K L ± j. ± X 1 


PASS 1 PASS 2 PASS 3 PASS 4 PASS 5 
Figure 5. Storage Map for the Read-In Phase 

The Read-In Phase consists of five phas- 
es or passes, each containing at most five 
modules. Modules CA and CC consist of 
common routines which are invoked through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN, and CR contain 
separate keyword tables. Details of the 
organization of these tables are given in 
Appendix B. Control for each pass resides 
in modules Cl, CL, CO, CS, and CV respec- 
tively. The following description refers 
to the phases by these names. 


Constants 


All constants appear in the output 
string. 


Operators 


All operators appear in the output 
string. 


Initial Labels 


Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assignment statements in 
text, and then handled as if they were 
normal labels. 


STRUCTURE OF THE READ-IN LOGICAL PHASE 


The Read-In Phase can occupy 16K bytes 
of storage for any one pass. A storage map 
for this phase is shown in Figure 5. 


Phase Cl 


During phase Cl (the first physical 
phase of the Read-In Phase) the source text 
is read into storage, and character codes 
are converted to an internal form. State- 
ment types are identified, labels are 
inserted into the dictionary, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D.l). 


A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 


These statements are: 

PROCEDURE-END 

BEGIN-END 

DO-END 

IF-THEN- ELSE 
ON 

If the SOURCE option has been, requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output medi- 
um . 
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Phase C L 


The output from phase Cl is processed 
and the statement types listed below are 
analyzed in greater detail: 


ENTRY 

PROCEDURE 

DO 

Iterative DO 
RETURN 
GO TO 
DELAY 
DISPLAY 


FREE 

WAIT 

READ 

WRITE 

DELETE 

UNLOCK 

LOCATE 

REWRITE 


If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 


Phase CO 


The output from phase CL is processed. 
In particular, the DECLARE, ALLOCATE, and 
CALL statements are analyzed in greater 
detail. The syntax of attributes is 
checked, but their consistency is analyzed 
during phase EK. If the source program 
does not contain any of these three state- 
ments, this pass is not invoked. 

If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 


Phase CS 


The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 


Phase CV 


This phase processes the output from 
earlier phases. In order to assist subse- 
quent processing, chains are constructed 
for PROCEDURE, ENTRY, BEGIN, CALL, ALLO- 
CATE, and DECLARE statements. 


THE DICTIONARY LOGICAL PHASE 


The Dictionary Phase forms a dictionary 
of identifiers, by first analyzing PROCE- 


DURE, BEGIN, DECLARE, and ENTRY statements. 
The text is then scanned for contextual use 
of identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Appendix C. 


Construc ti ng and Acces sin g the Dictiona ry 


The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 


To facilitate a search through the dic- 
tionary for an entry with a particular BCD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 


The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e. the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 


"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 

If TOM, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
they all hash to the same address in the 
hash table, the address in the hash table 
will point to HARRY's entry, which contains 
the address of DICK, which, in turn, con- 
tains the address of TOM. 

When no further BCD entries are to be 
made in the dictionary, and all BCD iden- 
tifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 
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Tes t ing for Co n sisten t Attr i bute s 


A test is made at the start of each list 
of attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 


Compiler Pseudo-Variables a nd Functi ons 


Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed immedi- 
ately following the BEGIN, PROCEDURE or 
ALLOCATE statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo- variable contains the dictionary 
reference of the variable and information 
concerning the destination of the expres- 
sion. Compiler functions with a format 
similar to the pseudo-variables are also 
created. The function result is the speci- 
fied array bound, or string length. Com- 
piler functions are created for two purpos- 
es: first, to set bounds for base elements 
of structures when the structure bound is 
an expression, or to set the bounds of 
temporary arrays; and secondly, to set the 
storage address of a dynamically defined 
item immediately before its use. The for- 
mats of all the compiler pseudo- variables 
and functions appear in Appendix D.8. 


Dictio n ary Entries for Ent ry Points 


A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 
data returned when the label is invoked as 
a function, and also the type of data to 
which the expression in a RETURN 
(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 


may specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
statements or default rules, are used for 
prologue construction, but not for paramet- 
er matching. Any data description given on 
these statements is to be used for conver- 
sion at a RETURN (expression) , but not for 
determining the result returned by a func- 
tion reference. 

Parameter descriptions for use in param- 
eter matching, and data descriptions used 
for determining the type of data returned 
by a function reference, may be specified 
by the source programmer in an ENTRY dec- 
laration. If these are not given, default 
and implicit rules must be used to build a 
data description, but no parameter descrip- 
tion can be given. 

Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 

The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 

The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 

The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a circu- 
lar manner. If there are no ENTRY state- 
ments the entry type 1 of the PROCEDURE 
statement points at itself. 

External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 

Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6 . 
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Note: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 


Phase ED 


Phase ED simply moves a set of subrou- 
tines, which handle certain features of the 
list processing facility, into the communi- 
cations region and sets a register to point 
at them. The routines will later be used 
by phase EL. 


Phase EG 


Phase EG has two main functions. The 
first is to set up a hash table, and to 
insert the label entries left in the dic- 
tionary by the Read-In Phase into hash 
chains. The second function of the phase 
is to create dictionary entries for PROCE- 
DURE, BEGIN, and ENTRY statements, and to 


construct chains linking entries of parti- 
cular types. 


For PR OCEDURE-BEGIN statements , entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block . 

On the appearance of PRO C EDURE state- 
ments, circular PROCEDURE-ENTRY chains are 
initialized to link the entry type 1 dic- 
tionary entries of the PROCEDURE and ENTRY 
statements of the same block. The formal 
parameter list is scanned, and formal par- 
ameter type 1 entries are created and 
inserted into the hash chain. Details of 
the PROCEDURE-ENTRY chains appear in Appen- 
dix C.2. 
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The attribute list is scanned and an 
options code byte is created in the entry 
type 1 (see Appendix C.2). A check is then 
made for invalid and inconsistent attri- 
butes. CHARACTER and BIT attributes are 
processed, and second file statements (see 
Appendix D.8) are created if necessary. 
Precision data are converted to binary, and 
dictionary entries are created for pictures 
(see Appendix C.7). 

Statement labels are scanned and their 
entry type 2 dictionary entries are creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3). 

For ENTR Y statements, entry type 1 dic- 
tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE- ENTRY 
chain is extended. Formal parameters, 
attributes, and labels are processed in a 
similar manner to those for PROCEDURE 
statements, except that the options code 
byte is not created. 


Phase El 


Phase El scans the chain of DECLARE 
statements set up by the Read-In Phase, and 
modifies the statements to assist Phase EK 
as follows: 


Structure Level Numb ers : these are con- 

verted to binary. 

Factored Attributes: parentheses enclosing 
factored attributes are replaced by special 
| code bytes, so that Phase EK can distingu- 
| ish them easily. A factored attribute 
table is set up. It consists of slots 

corresponding to each factored level. Each 
slot contains the address of the attribute 
list associated with that level, and the 
address of the slot for the containing 
level. 

The following attributes are processed: 

DIMENSION: dimension table entries (see 

Appendix C»8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see Appen- 
dix D.8) is created at the end of the text, 
for adjustable bounds, and a pointer to the 
statement is inserted in the dimension 
table. Identifiers with identical array 
bounds share the same dimension table. 

PRECISION : precision and scale constants 

are converted to binary. 


I NITIAL : dictionary entries are created 
for INITIAL attributes. 

INITIA L CALL: second file statements are 
created for INITIAL CALL attributes. 

CH ARACTER and BIT : fixed length constants 

are converted to binary; a code byte marker 
is left for * lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced by 
pointers to the statements. 

DEFINED: second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the state- 
ments . 

PO SITI ON : the position constant is con- 
verted to binary. 

PICTURE : a picture table entry (see Appen- 
dix C.7) is created and inserted into the 
picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 

USES and S ETS: USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 

LIKE : BCD entries are created for iden- 
tifiers with the LIKE attribute. 

LABEL ; if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 

I O FFSET and B ASED : Second file statements 
jare made and text references are inserted 
| in the DECLARE statements for these attri- 
J butes . 

| AREA : Fixed-length specifications are con- 
j verted to binary; second file statements 
jare made for expressions; a code byte, 

J followed by the length of text reference, 
j is inserted in the DECLARE statement text. 

All other attributes, identifiers, or 
constants are skipped. 


I £has e_EL__(_EKj._EM2 


Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read-In Phase. 

An area of storage known as the a ttri - 
bute c oll ection are a is reserved. This is 
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used to store information about the iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 


Complete dictionary entries are con- 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types: 

1. Data Items (see Appendix C.4) 

2. Structures (in this case, the 'true' 
level number is calculated) (see 
Appendix C.4) 

3. Label Variables (see Appendix C.4) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

6. Parameters (see Appendix c.7) 


7. Event Variables 


8. Task Variables. 


Identifiers appearing as multiple dec- 
larations are rejected and a diagnostic 
message is given. 


The attributes to be associated with 
each identifier are picked up in three 
ways . 


First, the attributes immediately fol- 
lowing the identifier are stored in the 
attribute collection area. 


Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase El. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 


Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 


After the dictionary entry has been 
made, further processing (e.g. linking of 
chains, etc.) must be done in the follow- 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7. Structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 

After the declaration list has been 
fully scanned and processed, it is erased. 


Phase E P 


Phase EP first conditionally marks later 
phases as 'wanted' or 'not wanted, ' accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique.. 

The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C.2). If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1 . 

The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement, a diagnostic 
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message is generated, and a dummy diction- 
ary reference is inserted. 


Phase EY 


If an identifier is found, it is 
examined to see if it is an undefined 
formal parameter. If it is, the formal 
parameter is made into an entry point, 
again using default rules for data descrip- 
tion. If it is not, or if the declaration 
of the formal parameter is complete, the 
type of entry is checked for the legality 
of the call. A diagnostic message is 
generated if the item may not be called. 
In all cases, the item called is marked 
IRREDUCIBLE if it has not previously been 
declared REDUCIBLE. 


Phase EW 


Phase EW is an optional phase, loaded 
only if any LIKE attributes appear in the 
source program. 


This phase scans the LIKE chain which 
has been constructed by Phase EK, and 
completes the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and dimen- 
sion data and inherited information are 
saved. The dictionary is scanned for the 
reference of the "likened" structure and 
the entry is checked for validity. 

This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with altera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 


Phase EY is an optional phase which 
| processes all ALLOCATE statements. 

The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 

A copy of the dictionary entry of the 
allocated item is then made (see Appendix 
C.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by including any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLO- 
CATE statement. 

In the case of an ALLOCATE statement in 
which a based variable is declared, no copy 
of the original dictionary entry is 
required. The BCD is replaced by the 
original dictionary reference. 

All pointer qualified references in the 
text are checked to determine that the 
qualified variable is based. For every 
occurrence of a variable with a different 
pointer a new dictionary entry is made. If 
the variable is a structure the entire 
structure is copied. A PEXP second file 
statement is made for the pointer and the 
'defined' slot in the new dictionary entry 
is set to point to it instead of to the 
declared pointer. 

The BCD of the pointer and the based 
variable in the text are replaced by the 
new dictionary reference followed by pad- 
ding of blanks which will be removed by 
phase FA. 

The based variable can be the qualified 
name of a structure member. If this is so, 
the name is checked for validity. Only the 
first part or lowest level of the qualified 
name in the text is replaced fcy the dic- 
tionary reference of the member. It is 
preceded by a special marker to tell phase 
FA that a partially replaced name follows. 


P hase FA 


Phase FA scans the text sequentially. 
If, during the scan, qualified names are 
found with subscripts attached, they are 
reordered so that a single subscript list 
appears after the base element name. The 
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dictionary is scanned and references 
obtained for any identifiers which are, 

| contextually, file, event, pointer varia- 
| bles, or programmer-named ON conditions. 
If no reference is available, a new dic- 
tionary entry is made. The identifier is 
then replaced in the text by the dictionary 
reference. 

If a constant marker is found, the 

dictionary is scanned to check if the 
constant is present. If it is not, a new 
dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 

If a P FORMAT marker is found, the 

dictionary is scanned for a picture entry 
in agreement. If there is no agreeing 

entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 

updated. The dictionary reference replaces 
the format marker in the text. 

The CALL chain is removed from CALL 
statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2 ) , the current 
statement number is updated. All data 
j items associated with the PROCEDURE, BEGIll, 

| ENTRY, and DECLARE statements are removed, 
leaving only the statement identification 
and the keyword. 


Phase FE 


When an identifier is found, the hash 
chain is used to scan the dictionary for a 
valid entry. If one is found, its dic- 
tionary reference replaces the identifier 
in the output text. If no valid entry is 
found, and the BCD does not agree with any 
entry in the tables of BCDs of PL/I built- 
in functions, then a dictionary entry is 
made as if the identifier was declared in 
the outermost procedure. However, if the 
BCD agrees with a function name, and it is 
not in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 

If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.l). 

Checks are also made for the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 


PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be updat- 
ed . 


Phase FI 


Phase FI scans the text and checks, 
where possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.l) if the branch is to a label constant 
outside the current PROC or EEGIN block. 
If the branch is to a label variable, GOOB 
is set up unless a label value list was 
given at the declaration, and all members 
of the list lie within the current block. 

| List processing based variables in ALLO- 
j CATE, FREE, READ, WRITE, and LOCATE state- 
jments are marked as requiring a Record Dope 
(vector (RDV) . Variables in TASK and EVENT 
| options on CALL statements are checked for 
j validity . 

References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists . 

Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 


Phase FK 


Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 


Phase FO 


Phase FO makes a dictionary entry for 
each ON condition mentioned inside a block. 
For ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
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condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each dif- 
ferent BCD name. 

SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 

The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT statement is replaced by 
an error statement. A diagnostic message 
is generated. 

The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the communications 
region. 

A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists. A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 

When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 

List Processing POINTER and OFFSET vari- 
ables in CHECK lists are treated as data 
variables. BASED variables may not appear 
in CHECK lists. 

A dictionary entry is made for the list 
processing AREA condition. This condition 
is always enabled and may not appear in a 
condition prefix. 

Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 

All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 

A further, quite distinct, function of 
this phase is to substitute error state- 
ments for all statements containing dummy 
dictionary references (which have been 
inserted by previous phases on detecting a 
severe error) . If a dummy reference is 
found in the second file, the compilation 
is aborted. 

Wherever an element of a label array is 
initialized by appearing as a statement 


label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 


Phase FQ 


Phase FQ checks the validity of each 
item in the PICTURE chain in the dictionary 
(see Appendix C.7). 

The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 

Invalid pictures cause appropriate diag- 
nostic messages to be generated. 


Phase FT 


Phase FT performs certain housekeeping 
tasks. These are as fellows: 


j 1. The second file entries are scanned 
and pointers to each entry are insert- 
ed in the associated dictionary entry 
(see Appendix C.7). 

2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 

3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 

4. Dimension tables are separated for 
items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths . 

5. Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are net constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the object time dope vector. 

6. Items which have expressions to be 
evaluated at prologue time, e.g. par- 
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ameter descriptions for entry points 
and defined items,, are placed in the 
AUTOMATIC chain for the appropriate 
block. 

7. The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 

8. The 'dope vector required' bit (see 
Appendix C.5) is set on where neces- 
sary. 

9. When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 


based variable is a structure this ref- 
erence is propagated throughout the struc- 
ture. The PEXP statement is then deleted. 

A similar procedure is performed for 
BVEXP (based variable expression) second 
file statements whereby the dictionary ref- 
erence of the AREA is inserted into the 
dictionary entry of the associated OFFSET 
variable . 

ADV second file statements referring to 
a BASED variable are checked for compliance 
with the (F) implementation rules. If the 
rules are obeyed, the dictionary entity of 
the 'bound' variable is inserted in the 
appropriate slot in the multiple table 
entry. 

If an MTF statement refers to a based 
variable the appropriate bound slot is 
copied from one multiple table entry to the 
other. 


| 10. Dictionary entries similar to label 
I BCD entries are made for all TASK 

j variables. 

Phase FX 


Phase FV 


Phase FV scans the second file and 
reverses the pointers to the dictionary. 

Dictionary entries for DEFINED data are 
completed (see Appendix C.4 and C.5). 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 

When PROCEDURE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 

When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 

When a reference to dynamically defined 


data is found. 

the 

base 

reference 

is 

inserted into 

defined reference. 

the 

text 

following 

the 

When an initial 

label 

statement 

is 

encountered in the 

main 

text 

, it is 

not 


copied into the output string. 

| The dictionary reference of a POINTER in 
j a PEXP (pointer expression) second file 
j statement is inserted into the defined slot 
j of the associated based variable. If the 


Phase FX is an optional phase entered 
only if the XREF or ATR (cross reference 
lister and attribute lister respectively) 
options are specified. It scans the STA- 
TIC, AUTOMATIC, and CONTROLLED chains, and 
the formal parameter lists. 

For each identifier it creates an entry 
in scratch text storage of the form: 

2 bytes 3 bytes 3 bytes 

r t * t 1 

| Dictionary |Text reference! Text chain | 
j reference | to this item j j 

L X , X J 

This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 

If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an iden- 
tifier is found in the text, an entry is 
created in a chain of entries from the 
dictionary entry of the identifier. 

Each member of the chain which rep- 

resents a reference to the identifier, has 
the following form: 

2 bytes 3 bytes 

r t 1 

| Statement number | Text chain | 

i x J 

Each reference chain for an identifier 
is in scratch text storage. 
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The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 

1. The statement number of the DECLARE 
statement, if any, in which the iden- 
tifier was declared is printed 

2. The BCD of the identifier is printed. 
For variables having constant dimen- 
sions and/or constant string lengths, 
these dimensions and lengths will be 
listed . 

3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are print- 
ed 

4. if the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 

Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase. 


THE PRETRANSLATOR LOGICAL PHASE 


The purpose of the Pretranslator Phase 
is to expand those statements in the lan- 
guage that can be broken down into simpler 
statements, and to insert explicitly gener- 
ated statements in place of implied ones. 

Second level markers (see Appendix D.l) 
are removed from internal compiler codes, 
and some of the I/O statements are changed 
into a form more suitable for the pseudo- 
code phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 

If the compilation contains ON CHECK 
conditions the appropriate calls to the 
library routine are provided. 

Any structure assignments containing the 
BY NAME option are processed. 

If any structure assignment statements 
or structures in I/O lists are detected in 
the program, they are expanded into scalar 
assignments and DO groups. 

If the program contains any array 
assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 


If the program contains iSUB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 


Additions to the Text 


In addition to changing the content of 
the text, the Pretranslator introduces some 
new symbols and grammatical forms into the 
source text. These are as fellows: 

Th e U m bre lla Symbol: this is designat- 
ed by the symbol code X'5E', which is 
used to introduce a literal as an 
operand. It is used only as a bound of 
a DO loop, or in a call of the dope 
vector pseudo- variable . 

Statem ents wi thi n s tate ment s : a list 

of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in parenthe- 
ses. Statements in the list are given 
no statement number field, but they 
have semi-colons at the end. 

I/ O st atement s: the form cf I/O state- 
ments is changed considerably during 
the pretranslator phases, as explained 
in the description of Phase GB. 

BU Y and SELL s ta te men ts : special 

statements are introduced for manipula- 
ting temporary storage at object time; 
they have a form similar to ALLOCATE 
and FREE statements. 

Temporary S to ra ge : Pretranslator phas- 
es create temporary variables for func- 
tion and procedure calls where the 
arguments do not match the final param- 
eters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure assign- 
ments, and for iSUB defined subscript 
lists. The Pretranslator has no mecha- 
nism for evaluating expressions. 
Therefore, temporaries which have no 
data type are created for expression 
arguments with no paran;eter descrip- 
tion. The data type of these temporar- 
ies is completed by the Translator 
generic phase when the resultant data 
type of the expression has been deter- 
mined . 

When the Pretranslator creates a tem- 
porary from an argument which contains 
any array with adjustable bounds or 
adjustable string length, compiler 
functions (see Appendix D.8) are gener- 
ated in-line, to set up the adjustable 
quantities at object time, to enable 
storage of the correct size to oe 
acquired by means of the BUY statement. 
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The temporary variables created by the 
Pretranslator have dictionary entries 
similar to variables declared in the 
source program, except that the tempo- 
raries do not have BCD names. 


I P hase G A 


Phase GA is an optional phase which 
scans the STATIC chain for file constants 
and OPEN control block entries. 

For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a dictionary entry 
is constructed, chained from the file con- 
stant, containing the core image of the 
56-byte DECLARE control block. 

For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8-byte core image of the OPEN 
control block. 

When the COBOL option is encountered in 
the ENVIRONMENT string of a FILE statement, 
phase GA sets the low-order bit in the 
fifteenth byte of the FILE dictionary 
entry. Although this action overwrites the 
dictionary reference of the ENVIRONMENT 
string, it is permissible since GA is the 
only phase which processes this string. 

The EXCLUSIVE second level marker is 
recognised in the file attribute dictionary 
entry during the diagnostic check and con- 
struction of the DCLCB or the OCB. 


I Phase G B (GC ) 


| Phase GB, containing Modules GB and GC, 
j processes I/O statements. GB removes all 
I second level markers from internal charac- 
ter codes (see Appendix D.l). It then 
reorders the options so that either EDIT, 
DATA, or LIST options appear last. 

In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 

In format lists iteration factors are 
expanded . 

| RECORD I/O statements for which the 
j COBOL file option is recognized are exam- 


ined for validity by GC . Diagnostics are 
put out for LOCATE and READ SET statements 
for which COBOL files are used. A tempora- 
ry variable is created to assist such data 
transfers as occur when a COBOL record is 
read into or written from a structure which 
does not contain either wholly binary or 
wholly character data. 

I/O activity found within a PROCEDURE or 
BEGIN block causes the bit X'10' to be set 
to one in the optimization byte of its 
entry type 1. 


Ph as e GK 


Phase GK scans the source text for 
function references. If it finds one, it 
inserts a special marker byte before the 
argument list, followed by: 

| 1. Two code bytes giving information 
j about the type of function, and wheth- 

er it was called with the TASK option 

2. The current statement number 

3. The current block level and count 

This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 
corresponding parameter and a code byte to 
show whether or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given as required by the corresponding 
dictionary entry. 

| NULL, NULLO, and EMPTY built-in func- 
jtions are recognised and converted to con- 
j stants . 


I Ph ase GO 


| This phase acts as a pre-processor for 
jphase GP. 


P hase G P 


Phase GP scans the text for procedure 
and function calls with arguments. These 
are detected by the special markers insert- 
ed by Phase GK . 

Temporaries (see Appendix C.4) are 
created for any arguments which are expres- 
sions. (An expression is defined as being 
any sequence of variables and operators, 
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other than single variables followed only 
by a subscript list, or only by a defined 
subscript list and then a subscript list) . 
If a parameter description has been 
declared in an entry declaration, the tem- 
porary which is created is of the same type 
as the parameter description. Otherwise, a 
'chameleon' temporary of unspecified data 
type is created, its type being subsequent- 
ly completed when the expression type has 
been determined by the Translator generic 
phase . 


Expressions are scanned for arrays 
(including partially subscripted arrays) , 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 


Where the expression contains a partial- 
ly subscripted array, a temporary is creat- 
ed with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 

When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 

1. If the data types are compatible, a 
warning message is printed, and a 
temporary is created 

2. If the data types are incompatible, an 
error message is printed, and the 
parameter description is ignored 

When the argument is a single partially 
subscripted array which matches the param- 
eter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
| list. 

Whenever a temporary is created, a BUY 
statement contained in nested statement 
brackets is inserted in the output text, 
followed by the assignment of the expres- 
sion or non-matching argument to the tem- 
porary. After the end of the PROCEDURE or 
function call, all the temporaries generat- 
ed in the call are released by means of a 
SELL statement in nested statement brack- 
ets . 

Temporaries are created for constants 
which are specified as arguments to func- 
tions defined by the programmer. 


j If a TASK, EVENT, or PRIORITY option is 
(present in a CALL statement, then any 
(temporaries which are created are of the 
('not sold' type. 

If GENERIC entry labels are specified as 
arguments to procedures, a special dic- 
tionary entry is made which contains the 
argument and parameter description dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 

A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 

When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 


Ph ase GU 


Phase GU scans the source text for 
PROCEDURE, BEGIN, and END statements, and 
for statements that may raise a possible 
CHECK condition. 

A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 

Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (fox- 
labels and entry names) or after it (for 
variables) . 


P hase HF 


The purpose of phase HF is to detect 
structure assignment statements, possible 
structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 

The leftmost structure in an expression 
or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 
assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 

The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
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each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular dimen- 
sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 
remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 
the original statement. 


P hase HK 


The purpose of Phase HK is to detect 
array or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in par- 
ticular nested assignment statements. 

The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued. Any expression con- 
taining only scalars is left unchanged. 

For unsubscripted arrays which are 
equally spaced in core only one temporary 
is bought, but for all other arrays a 
temporary is bought for each dimension in 
the array. This temporary will be added to 
the AUTOMATIC chain for the appropriate 
block. If the ON-condition name SUBSCRIP- 
TRANGE is enabled for any statement, a 
temporary will be bought for each dimension 
in all cases. Iterative DO loops are 
constructed: for an unsubscripted array 
expression of dimensionality N, the tem- 
porary will iterate between the lower bound 
of the Nth dimension and an evaluated 
product so that all elements of the array 
are processed; while for other arrays the 
temporaries will iterate between the lower 
and upper bound of the particular dimension 
of the array. The assignment statement is 
added to the output string with additional 
subscripts where necessary. End statements 
are created for the DO loops, and SELL 
statements for the temporaries. The state- 
ments which have been created are nested 
within the original statement. 

The syntax of pseudo- variables is also 
checked . 


P hase H P 


Phase HP scans the source text for 
references to items defined using iSUBs. 


For each reference found, the subscripts 
are computed for the base array correspond- 
ing to the subscripts given for the defined 
array . 

The subscripts of the defined array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 


the_translator_logical_phase 


The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the Transla- 
tor is to convert the output from the 
Pretranslator into a series of "triples" 
(see Appendix D.4). A "triple" is in the 
form of an operator followed normally by 
two operands. 

The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 

When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues . 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc. , are 
regarded as operators. 

After translation, the text string con- 
sists of operands and operators. All 
statements start with an operator to indi- 
cate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments. This list may also 
include compiler generated statements, 
e.g., DO loops for I/O lists. All I/O 
options are regarded as operators and 
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require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may follow this end-of -program mark- 
er, will appear between the marker and the 
special second-end-of-program marker. The 
end of a block of text will be marked by an 
EOB operator. The program is now assumed 
to be syntactically correct. 


Phase IA 


Phase IA rearranges the source text into 
a prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 

As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 

When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan, plac- 
ing any subsequent operand in the stack 
until another operator is found. The nor- 
mal stack action is to generate a triple, 
consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 

The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 

Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference, Phases IL and IM are marked 
wanted. If it does not, Phases IL, IM, IN, 
IO, IP, IQ, MG, MH, MI, MJ, MK, MM, MN , and 


MO are marked not wanted. Phases MB and *MC 
are marked wanted when the source text 
contains pseudo- variables or multiple 
assignments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC) . 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase IA independently. 

| When ALLOCATE and FREE .statements occur, 
j phase NG is marked wanted. When LOCATE 
(statements occur, phase NJ is marked want- 
led. 


Phase IG 


Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 

Phase GP examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 

Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 


Phas e IL 


This phase immediately precedes the main 
generic phase. Its function is to obtain a 
block of scratch storage and place the 
entire built-in function table in that 
area. The starting address of this table 
is then placed in a register, and control 
is released to the main generic processor. 


Phase IM 


Phase IM scans the source text for 
procedure invocations by a CALL statement, 
procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP) . 
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Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 

The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible . 

The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 


Phase IT 


Phase IT scans the source text for 
function triples and, in particular, tl^e 
built-in functions for which code will be 
generated in-line. Further tests are made 
to detect the functions which, according to 
the method used to generate in-line code, 
are optimizable. This applies only to the 
SUBSTR , UNSPEC, and INDEX functions. All 
references to 'chameleon' temporary assign- 
ments within the scope of these functions 
are removed subject to certain restrictions 
imposed by the function nesting situation. 


I Phase IX 


Phase IX checks that POINTER and AREA 
references are used as specified by the 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually. 
Error messages are produced if errors are 
found and the statement in error is erased. 

Data type triples in the text are 
scanned and a stack of temporary results is 
created containing the values: 

X ' 4 0 ' for POINTER 

X ' 0 2 ' for AREA 

X'OO' for any other data type 

The maximum permitted number of tempo- 
raries at any one point in a program is 
200. The compilation is terminated if this 
figure is exceeded. 


I Phase JD 


Phase JD scans the text for concatena- 
tion and unary prefixed triples with con- 
stant operands. These are evaluated and 
the results are placed in new dictionary 
entries. The references are passed through 
a stack into the corresponding result slots 
in the text. 


THE AGGREGATES LO G ICA L PHASE 


The Aggregates Phase consists of two 
physical phases, the structure processor 
(phase JK) and the DEFINED chain check 
(phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 

The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 


I Phase JI 


The first function of phase JI is to 
obtain scratch storage in which the text 
skeletons contained in phase JJ are to be 
held. Phase JJ is then loaded, and its 
contents are moved to the scratch storage 
for subsequent use by phases JI and JK. 
Phase JJ is then released and control is 
returned to phase JI. 

The main function of phase JI is to 
expedite data interchange activities. A 
scan of static, automatic, and controlled 
chains is performed. The chains are reor- 
dered so that all data variables appear 
before non-data items. Adjustable PL/I 
structures and arrays are detected. Each 
entry in the COBOL chain is mapped as far 
as possible at compile-time, removed from 
the chain, and placed in the appropriate 
AUTOMATIC chain. 


Phase J K 


J This phase scans the AUTOMATIC, STATIC, 

| and CONTROLLED chains for arrays, struc- 
tures (including COBOL structures), adjus- 
table length strings, DEFINED items, AREA, 
jand POINTER arrays and structures, TASK and 
| EVENT arrays, and TASK and EVENT arrays in 
| structures . 
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For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made : 

The offset from the start of the major 
structure 

The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures. 

For all minor structures and major 
structures the following calculations are 
made: 

Size 

The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 

Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
size of the item. 

Calculations are made in a similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 

| The routine which generates code for 
j arrays of VARYING strings is also used to 
j generate code for the initialization of 
j arrays of TASK, EVENT, and AREA variables. 

DEFINED items are processed in the fol- 
lowing way: 

Code is generated to set the multipli- 
ers and virtual origin address of cor- 
respondence defined arrays without 
iSUBs in the dope vector of the DEFINED 
items from the defining base dope vec- 
tor . 

Code is generated for overlay DEFINED 


items if they do not fall into the 
class which is to be addressed direct- 
ly. The code first maps the DEFINED 
item, if necessary, calculates the 
address of the start of the storage to 
be used by the DEFINED item, and final- 
ly, relocates the DEFINED item using 
this address. 

| Dope vector descriptor dictionary 
j entries and record dope vector dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD-oriented input/output statements. 


Phase JP 


Phase JP scans the DEFINED chain, and 
differentiates between the following: 


1 . 

Correspondence defining 


2. 

Scalar overlay defining 


3. 

Undimensioned structure overlay 
ing 

def in- 

4 . 

Mixed scalar-array-structure- 

class overlay defining 

string 


In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item may 
validly overlay the elements of the base 
belong to the same defining class, and that 
the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 
overlay the elements of the base. 

For mixed scalar-array-structure-string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 


THE PSEUDO- COD E LOGICAL PHASE 


The Pseudo-Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
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certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phase, control is handed to the Storage 
Allocation Phase in the output stage. 


Pseud o -C o de Design 


Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 

Pseudo-code is constructed in basic 
units, the majority of which have a stand- 
ard size of three or five bytes. A varia- 
ble sized unit, however, is also available 
to allow flexibility, its length being 
specified by a length code within the unit. 
The formats of pseudo-code instructions are 
shown in Appendix D.6. 

A unit consists of a one-byte operation 
code followed by normally, a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 


Pseudo-Code Items 


In addition to there being one pseudo- 
code item for each machine instruction 
which could be generated, there are also 
pseudo-code items which are produced to 
convey information from one phase of the 
compiler to another. 

These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 


Register Descriptio n 


In all cases where a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register usage. 


The Use of Symbolic Unass i qne d Registe rs 


Whenever a new register is required 
while pseudo-code is being generated, a 
symbolic register counter is incremented by 
one and, subject to this new value not 
being greater than 16,383, it is used as 
the symbolic name of the required register. 
When this register is no longer required a 
DROP pseudo-code item is inserted into the 
text to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned . 


The Use of Physical Registers 


Physical general purpose registers will 
be used either as arithmetic registers or 
as parameter registers. 


With arithmetic registers, it is the 
responsibility of the pseudo-code genera- 
tion phases to save and restore the reg- 
isters as necessary. This will apply both 
to the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 
of primary interest to the expression 
evaluation phases, it should be realised 
that all phases which generate calling 
sequences must be aware of the current 
status of arithmetic registers, and gener- 
ate code to save and restore them as 
necessary. 


In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required . 


T emporary D escripto rs 


As expressions are evaluated, a series 
of intermediate temporary results are 
obtained. These results, or their address- 
es, may be contained in symbolic or 
assigned registers, in a dictionary ref- 
erence, with or without an index register, 
or in workspace. Temporary descriptor tri- 
ples (TMPD) are inserted in the text to 
enable the correct pseudo-code instructions 
to be generated from the triples. The 
format of TMPD triples is described in 
Appendix D.9. 
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T emporary 


A block of temporary workspace is used 
to store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avai- 
lable workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an inter- 
mediate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text. Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 

At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic Storage Area (DSA) by Phase 
PT . 


Phase LA 


Phase LA is a utility phase which 
remains in storage during the whole of the 
Pseudo-Code Phase. It provides the main 
scanning routines to handle input and out- 
put text during the Pseudo-Code Phase. 

The routine/subroutine directories in 
this publication give a complete list of 
the routines provided, together with brief 
descriptions of their functions. 


Phase LB 


Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples . 

Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is for any IDV 
(initial dope vector) statement referring 
to a variable replication factor in the 
array initial string. Processing of these 
statements and of the corresponding array 
initial strings is then carried out. 

On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 

1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar varia- 
bles that have been declared INITIAL, 


a set of triples is created and 
inserted into the text. For any array 
declared INITIAL, the initial string 
is scanned, and a mixture of triples 
and pseudo-code is generated. 

2. For ALLOCATE triples, if the item has 
been declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 

Phase LE also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
co-operation with Phase IA. 


P hase LD 


Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 

When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 

For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 

Phase OS converts the constants to their 
specified internal form. 


Phase LG 


Phase LG scans the text for DO loops. A 
stack is maintained with each entry con- 
taining a description of a DC group. The 
stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
stack . 

DO specification triples are analyzed 
and expressions are assigned to temporar- 
ies; subscripts in the control variable are 
assigned to binary integer temporaries if 
they are themselves variable. At the end 
of each specification, pseudc-code and tri- 
ples are generated to control the loop. 

Triple operators (see Appendix D.4 ) 
peculiar to the specification of DO loops 
are removed from the text. 

For control variables, other than simple 
scalars, text is placed in the DC stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 
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variables, subscripts, functions, and 
argument markers. 


P hase LR 


The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase. Phase LA, is initialized and Phase 
MP is marked. 

The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Subroutines required by phase LS 
are also moved into scratch core at this 
time. Finally, control is passed to Phase 
LS. 


Phase LS 


Phase LS scans the source text to con- 
vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
is generated for all operators except ** 
and some complex type * and / operators. 
In these cases, Library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 

The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
biranch-on-f alse is inserted. Otherwise, 
the result, is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
| intermediate result from the top of the 
stack, are inserted in the text after the 
triple. The result is a CHARACTER or BIT 
string or a COMPARE operator. 


When subscript triples appear, a symbol- 
ic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register . 

For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 

Other triples which may use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 


Phase LV 


Phase LV provides string handling facil- 
ities for the pseudo-code phases. 

It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text . 

A string dope vector description is 
produced from a standard string descrip- 
tion. 


I Phase L X (LW, ly) 


| Phase LX consists of three modules, LW, 
j LX, and LY . Module LW acts as a pre- 
j processor for LX and LY, moving constants 
j into scratch core prior to loading the 
j string-handling modules. 

| Phase LX scans the source text to 
convert string triples to pseudo-code. If 
a result is produced it is added to a stack 
of intermediate string results. 
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For the comparison triples GT, GE , 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are 
aligned and are of known lengths less than 
or equal to 255 bytes; otherwise, Library 
calling sequences are generated. The 
triple and any TMPD triples are removed 
from the text. 


In the case of the string triples CAT, 
AND, OR, and NOT, the operands are convert- 
ed to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 
strings involved are less than or equal to 
| 32 bits in length. In-line code is also 
| generated for the following cases involving 
I non-ad justable varying strings: 

| 1. Character string concatenation of 

j varying strings with lengths less than 

j 256 bytes. 

| 2. Bit string operations for AND, OR, 

| NOT, concatenation, and comparison 

j where the strings are aligned and are 

j less than 33 bits in length. 

| Otherwise, Library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 

For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 
string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
Library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 


Phase MB 


Phase MB scans the text for pseudo- 
variable markers and multiple assignment 


markers. A stack of pseudo-variable 
descriptions is maintained, together with 
the left hand side descriptions of multiple 
assignments when they occur. Pseudo-code 
and triples are generated for pseudo- 
variables and the left hand side 
descriptions of multiple assignments are 
put out in the correct sequence. 


i Ph ase MD 


Phase MD uses the SCAN routine LA to 
scan the text for ADDR built-in functions 
for which it generates in-line code. It 
appears before the normal function proc- 
essor phase and removes all trace of the 
in-line function. The general SCAN routine 
passes control when these functions are 
found. 


For all cases of ADDR the generated code 
establishes the start address of the argu- 
ment. If structure name arguments are 
present the structure chain is hashed for 
the first base-element. For array names 
the address of the first element is calcu- 
lated. 


Ph ase ME 


Phase ME identifies all invocations of 
the SUBSTR function and pseudo- variable , 
| all UNSPEC, STATUS, and COMPLETION func- 
tions, and those invocations of the INDEX 
function which can be implemented in-line; 
and generates pseudo-code to perform these 
functions at object time. The scan of the 
text is conducted by the general SCAN 
| routine, and all trace of the invocations 
Jof these functions is removed before the 
normal function processor phase is loaded. 
When the end-of-program marker is encoun- 
tered the terminating routine is entered. 


P hase MG 


Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 
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text fcr 
procedure 


The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 


ALLOCATION FLOOR 
BIT IMAG 

CEIL REAL 

CHAR TRUNC 

COMPLEX UNSPEC 

CONJG 


BINARY 

DECIMAL 

FIXED 

FLOAT 

PRECISION 


Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end-of-program mark- 
er is encountered the terminating routines 
are entered. 


Phase ML 


Phase ML scans the source 
generic entry name arguments to 
invocations. 


Such entry names may be floating arith- 
metic built-in functions or programmer- 
supplied procedures with the GENERIC 
attribute. When one is found, the correct 
generic family member to be passed is 
selected by this phase, depending on the 
entry description of the invoked procedure. 


Phase MI 


Phase MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 

MAX MOD 
MIN ROUND 

If the number of arguments to the MAX or 
MIN functions is greater than three, a 
Library call is generated. 


Phase MK 


Phase MK identifies functions which are 
to be coded in-line, and generates, in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine, and control is passed 
| to the present phase when one of the 
following functions is found: 

DIM HBOUND 

LBOUND SIGN 
I LENGTH FREE 


Phase MM 


Phase MM scans through the source text 
for procedure invocations by a CALL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 


Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate (see Appendix 
D.10). 


j If a CALL is accompanied by a TASK, 
(EVENT, or PRIORITY option, library module 
jlHETSA is loaded rather than IHESA, and the 
jparameter list is modified to include the 
| addresses of the TASK and EVENT variables 
(and the relative PRIORITY. 


Ph ase MP 


Phase MP reorders the BUY and SELL 
statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between further BUYS and BUY triples, which 
themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status . 
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Phase M S 


Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo-code is 
generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
script range. 

Optimization of constant subscript 
evaluation is carried out on arrays having 
one subscript which is an integer constant, 
and all following subscripts declared to 
have fixed upper and lower bounds. This 
applies to arrays with fixed-length ele- 
ments. 


Phase NA 


Phase NA generates pseudo-code for the 
following triples: 

For PRO C EDUR E * and BEGINS triples a 
Library call is generated to the FREEDSA 
routine. 

For RETUR N triples a Library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 

GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 
instruction branches. 

GOLN triples are compiled into one- 
instruction branches to the compiler label 
number in operand 2 of the triple. 

A GOQB (Go Out Of Block) triple is a 
branch to a label variable, possibly 
subscripted, or to a label in a higher 
block than the current one (a branch to a 
lower block is invalid) . A call is gener- 
ated to a Library epilogue routine, point- 
ing at a double-word slot containing the 
address of the label and the Pseudo- 
Register Vector (PRV) offset (for a label 
constant), or the invocation count (for a 
label variable) . 


STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
Library routine. 


For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This EIT string is compared 
to zero, either in-line, or by a call to 
the Library. 

The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is net satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 

For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA . 

For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 

R EV ERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 


Phase NG 


Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY and 
WAIT statements. 

| It generates code to call the library 
(routines which handle ALLOCATE and FREE 
| statements whose arguments are BASED varia- 
| bles . 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for conver- 
sion. 

For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 

For WAIT statements, the parameter list 
is built up in WORKSPACE. It consists of 
the address of the scalar expression 
(converted to a fixed binary integer) , 
followed by the addresses of the event- 
names that appear in each WAIT statement. 
If the scalar expression option does not 
appear, the address of the total number of 
event-names is used. 
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For the tasking option WAIT, whose 
argument is an EVENT array, the phase makes 
a 4-byte entry in the parameter list, 
containing the number of dimensions 
involved, and the address of the EVENT 
array dope vector,. If the WAIT statement 
contains an EVENT array and no scalar 
expression, the first byte of the parameter 
list is set to X'FF' . 


For ALLOCATE and FREE statements, with 
based variables as arguments, a parameter 
list is built in workspace before a call is 
made to one of the entry points to IHELSP. 
The parameter list is an 8-byte RDV fol- 
lowed by the address of the AREA variable 
from the IN option if present. 


For ALLOCATE, the pointer-variable in 
the SET option is given the value returned 
by IHESLP. 


P has e NJ 


Phase NJ and its supporting block, NK, 
generate the Ccilling sequences to the 
| library module for the RECORD-oriented 
| input/output statements: DELETE, LOCATE, 

I READ, REWRITE, UNLOCK, and WRITE. 


For each of these calls, the information 
contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 

DC A(DCLCB) 

DC A (RDV | COUNT 1 | PNTR 2 | SDV 3 4 ) | 0 

DC A ( EVENT | LABEL * ) ) 0 

DC A ( SDV . KEYTO | SDV . KEYFROM | SDV . KEY ) | 0 

DC A ( REQUEST_CODES ) 

1 expr in IGNORE (expr) 

2 pntr in READ SET (pntr) 

3 SDV of varying string in READ INTO 

(varying string) 

4 Compiler label as result of LOCATE 


REQUEST_CODES is a full-word containing 
four control bytes with the following mean- 
ings: 

Eyte 1 Ope rat i on co de 
00 READ 
04 WRITE 
08 REWRITE 
0C DELETE 
| 10 LOCATE 

j 14 UNLOCK 

| Byte 2 Group 1 options code 

! 00 SET 

| 04 IGNORE 

| 08 INTO | FROM 

| Byte 3 G roup 2 optio n s code 

j 04 KEYTO 

| 08 NOLOCK 

| Byte 4 Grou p 3 o ptio ns code 

I 04 VARY INTO 

j 08 VARY KEYTO 

I 0C BOTH 

Note that null arguments in the paramet- 
er list or REQUEST_CODES are indicated by 
zeros . 

Both the parameter list and the 
REQUEST_CODES word are constructed in STA- 
TIC storage. However, if the argument of 
| any of the options refers to AUTOMATIC , 
j CONTROLLED, or BASED storage, the parameter 
| list is moved to the WORKSPACE storage for 
the statement; the argument is then provid- 
ed just before the library call is made. 

| In the case of the LOCATE statement, the 
j phase is responsible for generating code to 
jset the pointer variable with the pointer 
jvalue returned in the first word of the RDV 
| by the library. If the BASED variable was 
j a structure with a REFER option in an 
j extent definition, it is also responsible 
j for generating code to initialize the 
j extent variable named in the REFER option. 

The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 

| The record dope vector (RDV) is assumed 
to have been constructed by earlier phases, 

| except in the case of CONTROLLED or BASED 
(variables or CONTROLLED or BASED aggre- 
j gates, when the procedure is as follows: 

| 1. For CONTROLLED or BASED aggregates, 

| Phase NJ creates a library call to 

j IHESTRA , passing the following argu- 

ments through registers: 

Register 1 A(D.V) 

Register 2 A (DVD) 

Register 3 A (RESULT. RDV. SLOT) 
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| 2. For CONTROLLED or EASED strings, the 

phase generates code to construct the 
RDV in the WORKSPACE storage of the 
statement, using the dope vector of 
the string. 


| The IGNORE expression is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 

The EVENT scalar is taken from the EVENT 
option of the statement. 

The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 

The KEY SDV and KEYFROM SDV are derived 
from their respective options. If neces- 
sary, they are converted to character 
strings . 

| The PNTR is taken from the SET triple of 
| the statement or from the BASED variable of 
j the LOCATE triple if no SET triple appears. 


Phas e NM 


Phase NM generates the calling sequences 
to the Library modules for OPEN, CLOSE, 
GET, and PUT statements. 

For OPEN and CLOSE statements, a param- 
eter list is constructed from the options 
given. The options are first checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 
in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as fol- 
lows : 

OPEN DC A(DCLCB) 

DC A(OCB) 

DC A (TITLE. SDV) 

DC A ( IDENT . SDV ) 

DC A (IDENT . DED) 

DC A(KEYLENGTH) 

DC A (LINESI ZE) 

DC A (PAGES I ZE) 

CLOSE DC A(DCLCB) 

DC A (IDENT. SDV) 

DC A (IDENT. DED) 


Null arguments are indicated by zero 
address constants. 

For GET and PUT statements, the Library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU) , and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given options. The options are 
checked for legal combinations and the 
arguments examined. 

The parameter list when a file is speci- 
fied is : 

DC A(DCLCE) 

DC A (next statement) 

DC A (binary integer) if SKIP or 
LINE is given. 

For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is: 

DC A (SDV of string argument) 

DC A (DED of string argument) 

The termination Library call has no 
parameters. As for the initialization, the 
routine used depends on the options given 
in the statement. 


Phase NT 


This phase, which is a preprocessor for 
Phase NU, has two functions: 

1. Initialization of a block of scratch 
storage for use by Phase NU 

2. Setting up of INCLUDE matrix and 

Library routine entries for edit- 
directed, STREAM-oriented I/O 

statements 

The phase contains all pseudo-code skel- 
etons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 

If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of Library modules are 
identified for the edit-directed- transmis- 
sion specified in the program. The INCLUDE 
matrix is updated and dictionary entries 
are made for the required Library format- 
director routines. 
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Phase N U 


Data/format lists in I/O statements 
produce an internal Library calling 
sequence (see Appendix D.10) for each data 
item and format item pair, using registers 
to point at the data item, the data item 
DED, and the FED for the format item. 

Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. 

The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant Library I/O 
module. On return from the Library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 

Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 

An R format item referring to a label 
which is not attached to a format statement 
will cause an object time error condition 
to be raised, and the execution to termi- 
nate. 


P hase O B 


Phase OB scans through the text for 
compiler functions and compiler pseudo- 
variables (see Appendix D.8). When a 
compiler function is found, pseudo-code is 
generated to access the operands of the 
compiler functions (e.g., string length, 
array bound) , and to place the operand in 
the location specified by the TMPD follow- 
ing the function. Assignments to compiler 
pseudo- variables are treated in reverse; 
the result from the TMPD following the 
assignment is stored in the array bound or 
string dope vector slot specified in the 
compiler pseudo- variable. 

Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 


the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 


Phase OD 


This phase contains the translate and 
test table used by SCAN, and other tables 
and constants for phase OE. A block of 
scratch core is obtained into which the 
) tables, routines, and constants are moved. 
A pointer to the beginning of this area is 
passed to OE in a register. 


Pha se OE 


Phase OE translates the following tri- 
ples into pseudo-code: 

Assignment 

Multiple source assignment 
Multiple target assignment 
ALLOCATE, FREE, BUY, and SELL 
Special assignment 

In-line code is generated for the fol- 
lowing types of ASSIGNMENT triples: 

1. Floating-point to floating-point 

2. Fixed binary to fixed binary 

3. Fixed decimal to fixed decimal 

4. Numeric field to numeric field, if the 
pictures given for the operands are 
identical 

5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 

6. BIT string to EIT string, if the 
operands are aligned and not more than 
2040 bits 

7. Label to label 

8. File constant to file parameter 

| 9. POINTER/OFFSET to POINTER/OFFSET 

| 10. FIXED CHARACTER String to VARYING 
j CHARACTER String and VARYING CHARACTER 

j string to VARYING CHARACTER string 

j provided that: 

| 1. The length of the source operand 

j is not greater than 256 bytes 
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| 2. The length of the target string is 
j not greater than 256 bytes, if the 
| maximum length of the source 
j string is not known. 

| 3. For FIXED CHARACTER string to 
| VARYING CHARACTER string the 
| length of the FIXED string is not 
j greater than 256 bytes. 

Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 

| After checking both AREA operands, AREA 
j assignments are performed by the library. 

All other assignment triples are tran- 
slated into the CONV pseudo-code macro. 

If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for process- 
ing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 

M ULT IPLE AS SIGNM ENT triples produce the 

same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 

Library calling sequences are generated 
for ALLOCATE, FREE, BUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 

With SPE CIA L AS SIGNMENT triples, if the 
target is a varying or adjustable string, 
storage is obtained if the target is AUTO- 
MATIC, or allocated if the target is CON- 
TROLLED. The assignment is then translat- 
ed. 


Phas e OG 


Phase OG converts to pseudo-code all 
statement numbers, statement labels, PROCE- 
DURE, BEGIN, PROCEDURE', BEGIN', and end- 
of-program triples. 

The CONVERT pseudo-code macro is 
examined in conjunction with the OPTIMIZA- 
TION parameter and pseudo-code is generated 
in one of three forms: 


1 . 

Code to 
package 

call 

the Library 

conversion 

2. 

Code to 

"in-line" 

perform the 

conversion 

3. 

A modified 
to phase 

CONV 

OM 

macro which 
or OF for 

is passed 
processing . 


In-line conversion phases which are 
not required (OM and/or OP) are marked 
unwanted. 

IGN pseudo-code items and JMP triples 
are removed. The amount of temporary work- 
ing space required by each block of program 
is calculated and placed in the workspace 
dictionary entry (see Appendix C.7). 

The format of the text is converted so 
that a pseudo-code item does not span 
blocks . 

The INCLUDE card matrix is formed for 
all the conversion modules required. 


Phase OM 


Phase OM is called when either optimiza- 
tion levels 00 or 01 are specified. This 
phase scans the pseudo-code for the CNVC 
macros, which phase OG has placed into the 
text as 28-byte entries containing a trans- 
fer vector to select the appropriate con- 
version routine within OM, and replaces any 
such macros with in-line code. 

The conversions inserted by phase OM are 
controlled by phase OG. When OPT=0, cer- 
tain of the simpler FIXED DEC to PICTURE, 
PICTURE to FIXED DEC, and FIXED DEC to 
FIXED BIN conversions are passed to OM. 
When OPT=l , the remainder of the feasible 
FIXED DEC to or from PICTURE and FIXED DEC 
to FIXED BIN conversions are passed to OMi 
together with FIXED DEC to CHAR conver- 
sions . 

Certain FIXED DEC to PICTURE conver- 
sions, which phase OG cannot itself effi- 
ciently detect to be uneconomic when per- 
formed in-line, are recognized by phase OM, 
which inserts the calls to the appropriate 
Library routines. 


j Phase OP 


J Phase OP generates in-line code to per- 
| form BINARY to BIT string, BIT string to 
| BINARY, and FLOAT to FIXED EINARY conver- 
j sions . 


Phase OS 


Phase OS scans through the constant 
chain in the dictionary and converts the 
constants to the required internal form. 
These are then stored in a constants pool, 
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and the offset of each constant from the 
start of the pool is saved in the dictiona- 
ry entry for that constant. 


To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to con- 
vert all unaligned constants. 


In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 


A fourth scan is made of the constant 
chain and all constants required to ini- 
tialize static are converted, but instead 
of inserting these constants in the con- 
stant pool, they are moved into special 
dictionary entries constructed by Phase LB. 


T HE STORAGE ALLOCATION LOGICAL PH ASE 


The purpose of the Storage Allocation 
Phase is to ensure that every item requir- 
ing storage in a PL/I object program 
obtains a unique location of the correct 
size, located on the correct boundary. 
Items requiring storage include PL/I source 
program variables, dope vectors, dope vec- 
tor skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are allocat- 
ed to items in order of descending align- 
ment requirement to avoid wasting storage 
by padding to the required alignment. 

The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 

Since all AUTOMATIC and CONTROLLED stor- 
age is obtained dynamically at object time, 
the Storage Allocation Phase generates code 
to relocate dope vectors when the allocated 
storage address is known. 


I P hase PA 


The purpose of phase PA is to determine 
the eligibility of the automatic chains of 
any block for STATIC DSAs. Any chain not 
so far found to be ineligible for a STATIC 
DSA is scanned to determine the DSA size. 
STATIC DSAs are generated for any chains of 
less than 512 bytes. 

Dictionary entries are generated for 
STATIC DSAs. This phase also acts as a 
spill area for routines used in phases PD 
and PH. 


Phase PD 


Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
sets up a pointer in the associated dic- 
tionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 

Storage is allocated for simple non- 
structured, non-external variables, RDVs, 
DEDs, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items in the STATIC chain requiring them, 

| with the exception of EXTERNAL items. A 
j full word address slot is allocated in 
| STATIC for each STATIC DSA. 

The external section of the sorted 
STATIC chain is scanned and a 4-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 

The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are relo- 
cated. 

The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 


P hase PH 


Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 
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For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
known at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 

Skeleton dope vectors are not put into 
the STATIC chain for AUTOMATIC variables in 
any block whose DSA is in STATIC, except 
when the variable dimensions bit is set to 
one. 

If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four-byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure.) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
TROLLED scalar string, the virtual origin 
slot is relocated by the length of the dope 
vector . 

In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 

The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the 0FFSET1 slot of the 
dictionary entry. 

RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 

A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 

The section of the STATIC chain contain- 
ing STATIC INTERNAL structures is scanned. 
Storage is allocated for each structure 
according to the size of the structure 
(computed by Phase JK) , and this storage is 
placed on the correct boundary on informa- 
tion supplied by Phase JK. The structure 
member chain for each structure is scanned 


and the relative offset of each member is 
relocated to the start of the STATIC INTER- 
NAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, and the 
number of elements is calculated for INI- 
TIAL arrays. 


Phase PL 


Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 

when a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table dictiona- 
ry entry is created for the variable (see 
Appendix C.7), and a chain is set up to and 
from the dictionary entry for the variable. 
The new dictionary entry is joined onto the 
STATIC chain. 

The size of the symbol table is calcu- 
lated, and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 

All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 

When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the combina- 
tion of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default preci- 
sions only) . 

If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of stor- 
age for any one type of standard DED. If 
the DED is not of a standard type, it is 
allocated storage of its own. 

If the variable does not already have a 
symbol table dictionary entry (which con- 
tains space for DED information) , a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 
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When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 


Phase P P 


Phase PP extracts all ON condition 
entries and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone 
following the ON conditions. 

The phase then extracts all dictionary 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 
depends upon itself, a warning message is 
issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 


Phase P T 


Phase PT allocates AUTOMATIC storage, 
scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 

A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
space in the DSA is also allocated. 


| Two words are allowed for tasking infor- 
jmation in the DSA if the TASK option is on 
| the external PROCEDURE of the compilation. 


The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 

| Where there is a block with its DSA in 
I STATIC, dope vector initialization is not 
j performed for the variables in the first 
| region of the AUTOMATIC chain. Address 
j slots in dope vectors for variables in tne 
| remainder of the chain are relocated. 

Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER strings, and EIT strings, 
in that order. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 
aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 

A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area ( VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, any DEFINED items which 
are to be addressed directly have the 
storage offset and the storage class copied 
from the data item specified as the base 
identifier . 


P hase Q F 


Phase QF, which constructs prologues, 
scans that text which is in pseudo-code 
form at this time with end-of-text block 
markers inserted. 
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When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 

1. The item is saved if it relates to a 
PROCEDURE statement 


2. The item is omitted if it relates to a 
BEGIN or ON block 

3. The item is passed if it relates to 
neither of the first two conditions 

When a BEGIN statement is found, a 
standard prologue of simple form is gener- 
ated, and code is inserted from second file 
statements (if there are any) to get the 
DSA, either dynamically, or in the case of 
eligible bottom-level blocks, by using the 
supplementary LWS made available at ini- 
tialization time. Code is also inserted to 
initialize the DSA and to allocate and 
initialize any VDAs. 

When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
j manner of getting the DSA, the number of 
| entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 

| Prologue code is generated for AUTOMATIC 
| scalar TASK, EVENT or AREA variables, in 
j order to perform the initialization 
| required when these variables are allocat- 

| ed. 

The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D.7). 

DSA optimization is performed under 
certain conditions (see Appendix H) . 

At the end of the prologue, the state- 
ment label item saved earlier is inserted 
to mark the apparent entry point. Code is 
produced to effect linkage to BEGIN blocks 
in such a way that general register 15 
contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN epilo- 
gue. 

At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 


Ph as e QJ 


Phase QJ scans the text for ALLOCATE, 
FREE, and BUY statements. 

On finding an ALLOCATE statement, a 
routine is called which does a 'look ahead' 
for initialization statements associated 
with the allocated variable, e.g., adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 
string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc. , is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 

If the item has no adjustable paramet- 
ers, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code . 

If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 
a parameter to a Library routine. A rou- 
tine is then called which extracts the 
Library call inserted by pseudo-code and 
places it in-line in the text. 

Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 

Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. 
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The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
statement, with the following exceptions: 

1. Bound and string length code is in- 
line, bracketed between BUYS and BUY 
statements - there is therefore no 
look ahead 

2. There is no initial value code 

associated with temporaries 

3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary 

The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 


I Phase QX 


Phase QX is the 'AGGREGATE LENGTH TABLE' 
printing phase. It is entered only if the 
ATR (attribute list) option is specified. 
It scans the STATIC, AUTOMATIC, CONTROLLED 
and COBOL chains, and, for each major 
structure or non-structured array that is 
found, an entry is printed in the AGGREGATE 
length table. 

An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of an 
aggregate with the CONTROLLED attrioute, no 
entry is printed for the DECLARE statement, 
but an entry is printed for each ALLOCATE 
for the aggregate, the source program ALLO- 
CATE statement number being printed in the 
'statement number' column. 

Where the aggregate length is not known 
at compilation the word "adjustable" is 
printed in the 'length in bytes' column. 
In the case of a DEFINED aggregate, the 
word 'DEFINED', and not the aggregate 
length, appears in the 'length in bytes ' 
column. 


THE REGISTER ALLOCATION LOG I CAL PHASE 


The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 
general registers where symbolic registers 
are specified or required as base reg- 
isters . 


This phase comprises two physical phas- 
es, each with a specific function. The 
first, Phase RA, processes the addressing 
mechanisms, while the second phase. Phase 
RF, allocates the physical registers. 


Phase RA 


Phase RA scans the text fcr dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/I statements. 

A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 

If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
| in a 'step table 1 .' On completion, the 
table is scanned backwards to determine 
whether an intermediate result has been 
previously calculated. The steps which 
have not been previously calculated are 
then assembled into the pseudo-code. 

The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 

If no addressing code is generated, a 
special item is put in text to tell phase 
RF what base to use. 

All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks respec- 
tively . 

At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed . 
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If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement numoer slot 
in the current DSA up to date. 


Phase R F 


Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 

Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. Base registers may occupy any 
of registers 1 through 8. 

When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 


THE FINAL ASSEMBL Y LOGICA L PHA SE 


The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by offset values. 


Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors, symbol 
tables, etc. ESD and RLD cards are gener- 
ated for external names and pseudo- 
registers. An object listing of the code 
generated by the compiler is produced if 
the option has been specified by the source 
programmer . 


Phase TF 


Phase TF scans the text, assigns offsets 
to compiler and statement labels, and 
determines the code required for instruc- 
tions which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 


Phase TJ 


Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location counter is maintained for 
assembled code, and offsets are assigned to 
labels . 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass . 

This phase also attempts to reduce the 
number of Move (MVC) instructions oy 
searching for consecutive MVC instructions 
which refer to contiguous locations. 
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I Phas e TO (TQ ) 


Phase TO sets the four byte slot ZPRNAM, 
in the communication region, to contain the 
first four characters of the first entry 
label of the external procedure, for the 
purpose of object deck serialization. 


Phase TO also produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 

1. Program Control Section (CSECT) (SD 
type) allowing room for the compiler 

| subroutines if these are present. 

2. STATIC internal CSECT (SD type) 

3. Invocation count (PR type) 

4. Entry points to Library routines, 

IHESADA and IHESADB (ER type) 

j 5. IHEQERR (PR) 

| 6. IHEQTIC (PR) 

If the external procedure has the MAIN 
option, an entry for a one-word CSECT (SD 
| type) is made up. An entry is mtade for the 
j CSECT 1H entry and entries are made up for 
all entry labels in the external procedure 
(LD type) . 

The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 

The external section of the STATIC chain 
is scanned and entries are made up for: 

1. Built-in functions and library func- 
tions (ER type) 


2. Files (ER type) 

3. STATIC external variables (SD type) 

4. External entry names (ER type) 

5. Programmer ON condition names (SD 
type) 

The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED varia- 
ble and task name (PR type). 

The size of the program control section 
is incremented to include the compiler 
subroutines . 

All STATIC DSAs are put into the STATIC 
INTERNAL control section, their combined 
sizes being allowed for when the size of 
the CSECT is calculated. 


Module TQ is used to produce a list of 
Library conversion routines required for 
execution of the program. ER type entries 
are made up for each name in the list. 


Phase TT 


Phase TT scans the text and maintains a 
location counter for assembled code. 

Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested ccmbinat ions 
of load and punch files are generated. 

Nested procedures are unnested at object 
time by suitable manipulation of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the 
PROCEDURE entry type 1. 

Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. Phase TT 
also generates the text for the compiler 
subroutines. These subroutines are put out 
in one of the following combinations: 

1. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 
STATIC PROLOGUE subroutine 

2. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 

3. EPILOGUE subroutine 
STATIC PROLOGUE subroutine 


Phase UA 


Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, option- 
ally (if the LIST option is present), lists 
all the text produced for the static inter- 
nal CSECT and provides suitable comments. 

The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs, and DEDs for 
temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 

The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and Library 
functions, programmer-defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 


Section 2 (Compiler Phases): Final Assembly Logical Phase 
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The third scan of the STATIC chain 
starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 

Phase UA makes up RLD cards for the 
address slots for STATIC DSA's and for the 
address slot of the start of the epilogue 
subroutine, if generated. 

Text cards are output to initialize all 
AREA'S, EVENT'S, and TASK'S. Arrays of 
AREA'S, will have a text card for each 
element. 


P hase UP 


| Phase UD generates RLD and TXT cards to 
| set up dope vectors at link-edit and load 
j time. 

| TXT cards are generated for each STATIC 
j DSA, containing its length, which is found 
| in the STATIC DSA entry. 

| TXT and RLD cards are generated to set 
j up the dope vectors for structured items 
j and any non-structured items appearing in 
j the AUTOMATIC chains. The TXT cards are 
j derived from the skeleton dope vector 
| entries. The RLD cards are generated for 
j each virtual origin slot. 

| When the last STATIC DSA has been proc- 
j essed control is released from phase UD. 


I Phase UE 


Phase UE initializes those items on the 
STATIC chain not processed by Phase UA. 

The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables . 

The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 

The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a 
test is made to determine whether the 
external procedure of the program has the 
MAIN option. If so, a one-word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 


The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 

Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. If the 
OBJNM parameter is present for batch compi- 
lation, phase UD punches a NAME card to 
follow the END card. 


| P hase UF (UH) 


Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. It 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 

Phase UF contains module UH which gener- 
ates NAME from a dictionary reference. UF 
also lists the text for the compiler sum- 
routine. This is done by releasing UH and 
loading module UI which performs this func- 
tion. Upon termination of this phase 
module UI passes control to phase XA. 


THE ERROR EDITOR PHASE 


The Error Editor Phase is entered at the 
end of all compilations. The first phase, 
Phase XA, examines the dictionary and det- 
ermines whether there are any messages to 
be printed out. If there are none, this 
phase terminates the compilation. If there 
are diagnostic messages to be printed out, 
phase XB is loaded and the third section of 
the phase directory is completed. Phase XC 
is then loaded and this together with phase 
XA causes further modules (XF, and blocks 
XG to YY) to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 


Pha se XA 


Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no diagnostic messages to be 
printed, this phase prints out a completion 
message and completes the compilation. If 
diagnostic messages are required, the phase 
loads module XE which completes the phase 
directory for Compiler Control. Phase XB 
is then released and phase XC and the 
message address block XF are loaded. 
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The error editor then scans down the 
error message chains and marks each error 
dictionary with an indication of where the 
associated message is to be found. This 
information is obtained from a table in 
module XF. 

The text of all error messages is \ kept 
| in modules XG through YY. The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a par- 
ticular compilation. Module XC loads and 
releases these modules, one at a time, and 
extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary for error entries associated 
with the module. It accesses the error 
message text and scans it. 


The message to be printed is built up in 
a print buffer in internal compiler code. 
This involves a translation from EBCDIC 
mode, which is used for the message text 
skeleton. The message is completed by the 
insertion of a statement number, an iden- 
tifier, or a numeric value as specified by 
the message dictionary entry. The message 
is segmented, where necessary, to avoid 
spilling over a print line, translated to 
external code, and finally printed out. 


When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation . 


Section 2 (Compiler Phases) : 
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SECTION 3: CHARTS AND ROUTINE DIRECTORIES 


This section provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and rou- 
tine directories, arranged in phase order. 


Flowcharts 

The flowcharts are presented at three 
levels of detail — overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 09), 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled . 

Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows : 

1. Where the means of transfer is a trans- 
fer vector, an asterisk is shown as the 
label on the flowchart, and a note at 
the foot of the chart states that the 
transfer vector table is located at the 
start of the module. 

2. When transfer is made from a decision 
block, the block representing the entry 
is labeled. 

With the exception of "fall-through" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 

In some cases, additional labels have 
been given, to assist in following the 
program flow. 


T ables a nd Routin e Di rectories 


For each physical phase, a table is 
provided, which lists the operations per- 
formed and identifies the routines and 
subroutines involved. Where applicable, a 
routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 


In some cases, a physical phase compris- 
es more than one module; this means that 
routines contained in different modules may 
be listed together in one routine direct- 
ory. To assist in cross-reference to the 
compiler listings, the following convention 
has been adopted: if a routine is contained 
in a module whose label is not identical to 
that of the phase under discussion, the 
label of the containing module is inserted 
in parentheses after the routine name in 
the directory. 


In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine direct- 
ory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 


Cha rt a nd Table Identificati on 

Identification of tables and physical 
phase flowcharts is based on the phase 
label . 
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Chart 00 . Overall Compiler Flowchart 


**•* 41 **••*••*« 


*•••*42 ********** 


.X* 


A-*-*-*-*-*-*-*-* 
OMPILER * 

CONTROL * 

•INITIALIZATION * 

****** *•**••****« 


COMPILER CONTROL PERFORMS INITIALIZATION, 
OVERSEES PHASE LOADING. RESOLVES SYMBOLIC 
TEXT AND DICTIONARV REFERENCES AND CONTROLS 
ALL INTERFACES BETWEEN THE COMPILER AND OS/3A 


*-.*-*-*—*-*-*_*-* 

: HWMiMSf : x - 


COMPILE-TIME PRE-PROCF SSOR ACCEPTS INPUT CONTAINING 
COMPILE TIME STATEMENTS OF PL/I AND 
ENTS THE COMPILE R WITH THE SOURCF TEXT 
L TING FROM EXECUTION OF THESE STATEMENTS. 


N^C^MF 


*•*• 01 *&*****•• 

« « 
* RETURN " 




**•** 02 ********** 

* foItv c ^{ght * 

* CHARACTER * 

* PREPROCESSOR * 


THE FORTY EIGHT CHARACTER SET PREPROCESSOR 
ACCEPTS SOURCE PROGRAMS WRITTEN IN THE FORT* 
EIGHT CHARACTER SYNTAX OF PL/I AND CONVERTS THEM 

into sixty Character syntax. 






THE READ-IN LOGICAL PHASE CHECKS THE SYNTAX OF 
THE SOURCE PROGRAM, REMOVES SUPERFLUOUS 
CHARACTERS ANO LEAVES CERTAIN CHAINS IN THE 
PROCESSED TEXT TO AID LATER PHASES. 


**«**F 7 ********** 
'*, 03* 

*-*-.*-*-*-«_•-*-« 

* DICTIONARY * 

* logical phase • 


INARY LOGICAL PHASE CONSTRUCTS THE 
’ OF IDENTIFIERS FROM INFORMATION IN 
ATFMENTS AND FROM CONTEXT. IT ALSO 
ICO IDENTIFIERS IN THE TEXT nv rCefrENCES 
DICTIONARY, 


♦*****G1 *********** 



*-*-*-*-*-*-*-*-* 
*PRF- TRANSLATOR * 
* LOGICAL ®HASE * 


THE PRETRANSLATOR LOGICAL PHASE MANIPULATES the 
TEXT, REARRANGING I/O STATEMFNfS, CREATING TEMPORARY 
VARIABLES WHERE PARAMETERS DO NOT MATCH THEIR. 
CORRESPONDING ARGUMENTS, CONVERTING ARRAY AND 
STRUCTURE ASSIGNMENTS TO DO LOOPS, ANO REMOVING 
ISUfi EXPRESSIONS. 


* 15* 

♦«* ® 4 

* TRANSLATOR * 

* LOGICAL PHASE * 


THE TRANSLATOR LOGICAL PHASE CONVERTS THE 
PL / I SOURCE TEXT TO A COMPUTER-ORIENTED FORM 

called 'triples', generic selection is also 

CARRIED OUT, 


♦****K2 ********** 

* '1A* 
*—*—*—•-*—*—*—*—* 

* AGGREGATES * 

* LOGICAL PHASE * 


MKULTUKI-J AN') AK K A “ 3 I IJ ALHiN l.lfcALN'S 
ON CORRECf STORAGE BOUNOARirs, PSEUOC-CODE 
IS PRODUCED TO CARRY OUT INITIALIZATION AT 
OBJECT TIME. 


Section 3 : 
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Chart 00. Overall Coirpiler Flowchart (cont'd) 


***** 
*0A * 
* A2* 


* m* 
*- *~ *- *_*-*-*-*_* 

* PSEUDO-COOE * 

* LOGICAL PHASE * 

* * 
***************** 


THE PSEU00-CQ0E LOGICAL PHASE PERFORMS MANY 
PASSES OVER THE TFXT. EACH PASS CONVERTS SOME 
DF THE TEXT CONTFNT TO A FORM ALLIED Tn 
ASSEMBLY LANGUAGE, CALLED PSEUDO-CODE. 


**** 

* * 

* C2 * 

* * 
**** 


*«***C1 ********** 

♦ * 

* PRINT OUT * 

* AGGREGATE *. 

* LENGTH TABLE * 

* • 
***************** 


*****82********** 
• 08* 
*-*-*-*-*-*-*-*-* 

.* storage * 

* ALLOCATION * 

* LOGICAL PHASE * 

***************** 


«****C2 ********** 

* 09 * 
*-*-*-*-*-*-*-*-* 

X* REGISTER *X 

* ALLOCATION * 

* LOGICAL PHASE * 
***************** 


THE STORAGE ALLOCATION 

DICTIONARY A' ' 

ALL IDENTIFI 

REGIONS. PROLOGUES 


SCANS THE 
, STORAGE For 
DHTNISTRATIVE 


REGISTER ALL OCAT JO 
YS IS OF OBJECT TIM 
ICAL REGISTERS IN 


THE REGISTER ALL 
**** ANALYS-- 1 

• *PHYS1C 

• C2 


-*-•-*- *-*-*-*-* 


HE FINAL ASSEMBLY LOGIC 
9JECT TIME BRANCH ADDRE 
RANSLATION TO MACHINE C 


AL PHASE ESTABLISHES 

tno completes 
CODE, LOADER TEXT IS 


£2 *. 

.* IS *. 

LIST *. NO 
OPTION ON 
. • * 

*. .* 

*. .* 

YES 


**«**F2 ********* 


s 

• *• 


+****H? ********* 
* 

* PRINT OUT 

: 01 «wi c 


.*. 

J2 *. 

.* ANY *. 

.* MORE COM- *. 

*. PILATlONS IN .*. 
• THIS BATCH.* 


*. 


. * 


****KZ ********* 

* RETURN TO * 
♦CALLING PROGRAM* 


***** 
•C" * 
* A2* 
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Chart AA. Resident Control Phase Logic Diagram (Modules AA through AM, and JZ) 


*<t**Al ********* 

* ENTRY from * 
♦CALLING PROGRAM*. 


ZINIT 

*****42********** 

* LOAD * 

♦INITIALIZATION * 

i . • X* PHASE *. 

* IEMAB * 


***************** 


3********** 

OPf N * 

>IN, SYSPRINT* 


5 ut| 6 ;sy$ut 2 


ETC* 

* 

f** 


***«*ei ********** 


* RELEASE IEMAF * 


***************** 


IS THIS 
A BATCH 
JOB 


• *** 

* * 

► B3 *X.„ 


DICTIONARY • 
*• REQUIREO .* 

*• • * 

*• .* 


.* SAME TYPE *. 

• * X*. OF DICTIONARY.* 
♦.REQUIREO .* 

*. •* 


**** 

* * 

* B3 *... 

* * . 

**** # 

X 

**•**$ 3 ********* 
* 

* 

* LOAD I EM AN 

* 

**************** 


LOAD I EM At 


* BUILD FIRST * 
X* HALF OF *. 

♦PHASF DIRECTORY* 

* * 
***************** 


► * IS 

* MACOC 
*o SPEC I F 


*****£ 4 * ********* 


* LOAD IEMAF * 
...X* AND PROCESS * 

* OPT IONS LIST * 

* * 
***************** 

**♦* 

* * 

* F2 *X. • 

* * . 

**** . NO 

• *• 

B5 *. 

• * *. 

.* IS AP *. 
...X*. CHAR o* 

X ♦.SPECIFIED** 

*. . * 

*. . * 

YFS 


* OPEN SYSPUNCH *. 


**************** 


***************** 


***************** 


*****E 3 ********** 


RELEASE 
MITIALISAT- 
PHASE IEMAB 


♦ * LOAD IEMAN 

ION *•*».... - 5 X* TO MARK 
' ‘ * * L ATER PHASES 


***************** 


***************** 


***** p 5********** 
* * 

* LOAD A * 

X* COMPILFR * 

* PHASF * 

* * 
***************** 


WAS *. YES 
PHASE .*<.... 
IEMBX .* 


♦****F 2 ********** 

* EXECUTE * 

* IEMAC TO * 

OPEN SYSUT3 *. 

* FOR INPUT * 

* * 
***************** 


• X* 


*«***p 4 ********** 

* (I EM XX IS AMY * 
♦ONE OF THE PHY- * 

* SICAL PHASES * 

* DESCRIBED IN * 
♦FOLIOWNG CHRTSI* 
***************** 


♦****F 5* ********* 

* TFMXX * 

*-*-*-*-*-*-*-*-* 

* CALL A * 

♦COMPILER PHASE * 

* * 
***************** 


.* END *• YES 
♦.OF FIRST HALF.*.... 
♦ PHASF LIST.* 


***«*£ 2 ********** 

* EXECUTE * 

* 1 6 MAG TO * 

, X* TIDY UP AFTFR *. 

* READ- IN * 

* * 
***************** 


*****^2 ********** 

* EXECUTE * 

* IFMJZ TO * 

►X* BUILO SECOND *. 

* HALF PHASE * 

* DIRECTORY * 

***************** 


WAS 

IEMAC 

LOADEO 


• * 

» * 

NO 

**** 

* * 

.X* E5 * 
* * 

**** 


* * *«*Q4*** ******* 


, X* 


c * HAS *. * 

.♦THERE BEEN *. YES * SETS. TIDYUP * 

► . A TERMINAL .* *.X*PICKIJP SEVERITY* 


.* WAS *. YES 
*. RETURN TO .*.... 
*. ZEND .* 

*• •* 


***«*j 2 ********** 

* LOAD CLOSING * 

* MODULE AK * 

, X*UPOATE SEVERITY*. 
*COOE FOR BATCH ♦ 

* * 
***************** 


ERROR .* 

» *. . * 

♦. , * 

*** * NO 

* „ **** 

H3 * . * * 

* . . X* J5 * 

*** * * 
**«* 

• *0 

J3 *. 

.* ANY *. 

.♦ MORE *«. N 
► , X*. COMPILATIONS « *. 
*. IN BATCH .* 


***************** 

**** 

* * 

* HA *.., 

* * , 

*+** , 

ZEND X 

***** ha*** ******* 

CLOSE DATA 
ETS. TID - 
“ 'UP SE\ 

CODE 

**************** 


**** 

* * 

,X* E f> * 

* * 

**** 


*« 


*. 


***** j 4* ********* 

* * 

* * 

* RELEASE AK ** 

* * 

* * 

***************** 


**** 

* * 

* J5 * 

* * 
**** 


***«*j 5********** 

* CLOSE SYSUT1 * 

* SCAN BATCH * 
> * DELIMITER * 

* RECORD FOR * 

* SYNTAX ERRORS * 
***************** 


**** 

* * 

* EA * 

* * 
**** 


tt***KA ********* 

* RETURN * 

► TO CALL ING * 

♦ PROGRAM * 

*************** 
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Table AA. Module AA Compiler Control Resident Control Phase 


T T 

Main Processing 
Routine 


l» 


Statement or Operation Type 


+- 


-+- 


Routine Called 


Initializes the compiler 

Param e ters pa ssed: General register 1 points at 
the passed parameters 

Entry to OS/36Q ; GETMAIN (R) , TIME, LINK, SPIE 


ZINIT 


LOADW, ABORT 


+- 


Deletes a list of loaded phases 

Parameters passed : PARI -- address of list of 


RELESE 


phases to be deleted 
Entry to OS/ 360 : DELETE 


ZUERR, ABORT 


Deletes a list of loaded phases and passes 
control to either the next requested phase or 
the next named phase 

Parameters passe d; PARI — address of list of 
phases to be deleted; PAR2 — address of name 
of phase to which control is to be given, or 
zero 

Parameters returne d: PARI -- load point of new 
phase 

Entry to OS/36 0: DELETE, LOAD(EPLOC), LOAD ( DE) , 
LINK 


RLSCTL 


+ - 


Module AD if inter- 
phase dumping is req- 
uired; Module AE if it 
is end of Read-In 
Phase; ZUERR, ABORT 




Loads the required phase and returns control to 
the caller. The phase may be loaded again 

Parameters passed : PARI -- address of name of 
phase to be loaded 

Parameters returne d: PARI — load point of 
phase 

Entry to OS /360: LOAD (DE) 


LOADX 


ZUERR, ABORT 


4 - 


Marks phases as 'wanted' and 'not wanted' 

Parameters passe d: PARI -- address of 
list of phase names to be marked 'wanted;' 
PAR2 — address of list of phase names to be 
marked 'not wanted' 

Entry to OS/3 60 : None 


REQEST 


ZUERR, ABORT 


Puts a record out to SYSLIN 

Parame t ers passed : PARI — address of output 
record 

En try to OS/360 : PUT LOCATE (QSAM) 


ZULF 


LFERRX 


Puts a record out to SYSPUNCH 

Parameters passe d: PARI -- address of output 


ZUSP 


record 

En try to 0S/3C. Q: PUT LOCATE (QSAM) 


SPERRX 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 


Statement or Operation Type 


T T 

|Main Processing! 
Routine 


Routine Called 


Deletes currently loaded phases and passes 
control to the Error Editor 

Entry to OS/36 0: LOAD(EPLOC) if dump option 
specified 


Z ABORT, ABORT 


Module AD if dump op- 
tion specified; RLSCTL 


Picks up completion code and returns control to 
the program that called compiler 


Entry t o O S /360 : TIME, FREEMAIN, DELETE 


Handles all program checks 

Parameters p assed: ARINT holds address of 
routine wanting to handle interrupt. ARMASK 
holds mask indicating which interrupts it is 
desired to handle 

Entry to OS/3 6Q: None 


ZUERR 


Table AAl , Module AA Routine/Subroutine Directory 


r T 1 

| Routine/Subroutine | Function | 

j. - + -) 

ABORT JDeletes currently loaded phases, passes control to error editor. | 

I I 

BLKERR | Enters message "REFERENCED BLOCK NOT IN USE", then terminates compi- | 

j lation . j 

I I 

CONSLD | Takes dictionary reference and points at relevant slot in dictionary! 

j control block area (DSLOTS) . j 

I I 

CONSLT (Takes text reference and points at relevant slot in text block con- | 

jtrol area (TSLOTS) . j 

I I 

DFREE | Finds dictionary block which can be written on disk to make room for| 

ja new block in storage. | 

I I 

LFERRX | Marks error on SYSLIN data set. | 

LOADX | Loads required phase and returns control to caller. The phase may j 

j be loaded again. j 

I I 

LOADW | Loads required phase and returns control to caller. j 

I I 

PIH | Handles all program checks. | 

I I 

PLERRX | Prints record on SYSPRINT data set. Pagination (paging action) is | 

j performed automatically. | 

I I 

RDERRX | Marks error on SYSIN data set. | 

I I 

READX | Reads a block from disk. | 

I I 

RELESE | Releases all loaded phases. | 

I I 

REQEST |Marks phases as 'wanted' or 'not wanted.' | 

I I 

RLSCTL | Releases all loaded phases and passes control to next required or | 

j named phase. j 
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Table AA1. Module AA Routine/Subroutine Directory (cont'd) 

Function 


r T - 

J Routine/Subroutine | 


j. -|- 1 

SPERRX | Marks error on SYSPUNCH data set. 

I 

ZABORT | Deletes currently loaded phases and passes control to error editor. 

ZEND j Picks up the completion code for the compilation and returns control 

j to ZINT to continue the batch, or to the operating system at the end 
| of a single or batch compilation. 

I 

ZINIT (Initializes the compiler. 

I 

ZULF | Puts record out to SYSLIN data set. 

ZUSP | Puts record on to SYSPUNCH data set. 

L X 1 
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•Table AB. Module AB Compiler Control Initialization 

I T T 

Main Processing 

| Statement or Operation Type I Routine 


+- 


Routine Called 


j Issues a BLDL macro instruction on all phases 
jin compiler, and constructs a compacted phase 
dictionary 


I Entry to OS/3 60 : BLDL 


PROPEN 


+- 


None 


| Prints initial heading and performs scan of 
(option list. Default options are taken where 
j necessary 


I Paramet er s pa ssed: General register 1 points to 
{option list passed at invocation time 
( Ent ry to OS/360: TIME, PUT LOCATE (QSAM) 


OPTPROC 


f 

|Makes the initial space allocation for text and 
(dictionary blocks. Sets up communication 
j region 

I 

I Entr y to OS /360 : GETMAIN ( R ) 

\ 

| Opens spill file if text and dictionary blocks 
(are IK 

I 

I Entry to OS/360 : OPEN 

f- 


+- 


None 


OPENR 


+ - 


None 


+- 


OPENSP 


None 


-+- 


| Obtains the guaranteed 4K of scratch storage 

I 

I Entry to QS/360 : GETMAIN ( R ) 

t 


GETSCR 


-+- 


None 


(Loads intermediate file writer (Module AC). 
(Sets buffer sizes for SYSUT3 and opens the data 
j set 

I 

( Entr y t o QS /360: LOAD(EPLOC), OPEN 


NODUMP 


h 

| Prints out list of options for this compilation 

I 

(Entry t o QS/3 60: None 


ZUPL (AA) 




NDMP 


f 

(Enters error messages generated when SYSIN, 
j SYSPRINT opened 

I 

I En t r y_ t o_0 S / 3 6 0 : None 


■+ 


ZUPL (AA) 


PJ1 3 


f — 

(Reads first card and stores. Uses as heading 
| if required 

I- - 


ZUERR (AA) 


RDCD 


■ + 


ZURD, ZUERR, ZUPL 
(all in AA) 


j Return to pre-initializer in IEMAA 

F 


ABOUT 

MCD 


None 


| Opens SYSPUNCH if MACDCK specified 

I 

I Entry t o QS/36 0: OPEN 


•I 


ZUERR 


j Loads dictionary handling control routines 
j (phase I EM AN or IEMAL depending on normal dic- 
( tionary or extended dictionary being specified 
j in the options ) 

I 

I Entry to _OS/360 : LOAD 

i . 


LODCNTL 


None 
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Function 


Table ABl . Module AB Routine/Subroutine Directory 

r t 

j Routine/Subroutine | 

f + 

ABOUT 
GETSCR 
NDMP 
NODUMP 


Returns control to pre-initializer in Module AA . 

Obtains scratch storage. 

Prints lists of options for current compilation. 

Loads intermediate file writer module AC. Sets buffer sizes for 
SYSUT3 and opens data set. 

Makes initial space allocation for text and dictionary blocks. Sets 
up communications region. 

Opens spill file. 

Prints initial heading and performs scan of option list. 

Enters diagnostic messages generated when SYSIN and SYSPRINT data 
sets are opened. 

Issues BLDL macro instruction and constructs phase directory. 

Reads first card. 


OPENR 

OPENSP 
OPTPROC 
PJ13 

PROPEN 
RDCD 

L I J 


Table AC. Module AC Compiler Control Intermediate File Control 

r 


T T 

Main Processing 
Routine 


Statement or Operation Type 




+- 


Routine Called 


Writes a record onto SYSUT3 


Parameters pass ed: PARI -- address of output 


IEMAC 


None 


record; PAR2 -- length of record 
Ent ry_ to_0S/3 6 0 : PUT LOCATE (QSAM) 


Link to file switching routine (Module AG) 
Entr y t o OS/3 60 : LINK 


ENDED 


None 


Table AD. Module AD Compiler Control Interphase Dumping 

r t t * 1 

| | Main Processing! | 

| Statement or Operation Type j Routine j Routine Used j 

h i + ^ 

(Debugging aids. This routine contains a dump- | IEMAD | ZDRFAB , ZTXTAB, ZUPL | 

j ing program which is invoked by use of the DUMP j j (all in AA) , | 

| option j j DUMP j 

L J. ± J 


Table ADI. Module AD Routine/Subroutine Directory 

r t 

| Routine/Subroutine | Function 

h i 

| DUMP | Converts contents of specified area of main storage to hexadecimal 

j j prints the result. 

L I 


1 

I 

A 


J 
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Table AE. Module AE Compiler Control Clean-Up Phase 


"T T 

| Main Processing 
Routine 


Statement or Operation Type 




+- 


Routine Called 


Input and intermediate file control. Current | I EM AC 
input file is closed and IEMAC is deleted if | (Module AC) 
present | 


None 


Entry to OS /360: CLOSE (current input file), 
DELETE 




+' 


F 


Opens SYSLIN and SYSPUNCH data sets if required | NOT48 

I 

Entry to OS/ 360: OPEN 


+ 

Expands the number of blocks in storage to four | NOTDCK 
text and four dictionary, if running with the j 
44k size option | 

I 

Entry to OS/36 0: GETMAIN | 


ZUERR (AA) 


+- 


None 


Table AE1. Module AE Routine/Subroutine Directory 


r T . 

| Routine/Subroutine | 

F 


Function 


■+ 

| Opens SYSLIN and SYSPUNCH data sets as required, 

I 

| Expands number of blocks in storage. 


NOT 4 8 
NOTDCK 


Table AF. Module AF Compiler Control Sysgen Options 


Function 


- T __ 

1 

- 1 - .. 

Subroutines 

This module contains no executable instructions, 
generated at SYSGEN time and passes the default 
and values to the compiler 

. It is 
options 

T 

| None 

1 

1 

_ X 



Table AG. Module AG Compiler Control Intermediate File Switching 

r t 1 

| Function j Subroutines | 


| Switches SYSUT3 from an output file to an input file | None | 

I I I 

I Entries to OS /360; OPEN and CLOSE | | 

L “ X J 


Table AK. Module AK Compiler Control Closing Phase 


Function 


Subroutines 


F + 


Closes files, frees scratch core and deletes unwanted |ZURC(AA) 

phases 

If batch compiling, scans batch delimiter card for correct 
syntax and updates completion code. 

E ntr ie s to OS/360: TIME, CLOSE, FREEPOOL, DELETE, and 
FREEMAIN 

L X J 
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• Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases 

r t t 

Main Processing 
Routine 


Statement or Operation Type 


+- 


Routine Called 


Releases scratch storage allocated by ZUGC 

Parame ters p a sse d: PARI -- a count of the 
number of entries to ZUGC to be released 
E nt r y t o O S/3 60; FREEMAIN if storage being 
replaced is outside the guaranteed 4k block 


ZURC 


ZUERR, ABORT 


+- 


+■ 


Inserts diagnostic message in the dictionary 

Pa ra met ers passed : PAR5 -- numeric parameter 
(if any); PAR6 — message number; PAR7 -- add- 
ress of text (if any) or dictionary reference 
(if any); PAR8 — length of text (if any) 
Entry to O S/36Q : None 


ZUERR 


ZDRFAE, ZB1CRF , ZDICAB 


+- 


Takes a dictionary reference and points at the 
relevant slot in the dictionary block control 
area (DSLOTS) 

P aram ete rs passed : PARI -- dictionary ref- 
erence 

Para met er s r eturned: Address of slot in GRA 
Entr y t o QS/3 60 : None 


CONSLD 


None 


+- 


Takes a text reference and points at the rele- 
vant slot in the text block control area 
( TSLOTS ) 

Pa ram e ters pa s sed : PARI -- text reference 

Pa. r;a.rne ter;^ : Address of slot in GRA 

Entry to Q S/3 60 : None 


CONSLT 


Allocates space for a text block 

Param e ters pa ssed: Relative track address of 
the block (if block is on disk) in RDTTR . 
Otherwise RDTTR is zero 

Param ete rs r et urne d: Address of block in GRO 
En try to QS/360: GETMAIN ( VC ) if storage 
available. OPEN if no space left for text 
blocks 


TRYMRT 


DFREE, TFREE, ZUPL, 
AEORT 


Allocates space for a dictionary block 

Parame ters passe d: Relative track address of 
block (if block is on disk) in RDTTR. Other- 
wise RDTTR is zero 

P ar ame te rs re turned: Address of block in GRO 
En try to O S/ 360: GETMAIN (VC) if storage 
available. Open if no space left for diction- 
ary blocks 


TRYMRD 


DFREE, TFREE, ZUPL, 
ABORT 


Investigates the dictionary block control used 
(DSLOTS) , to find which block can be written on 
to disk to make space for a different block in 
storage 

Parameters pa ssed; Relative track address of 
block required in storage in RDTTR. RDTTR=0 
if a block is being created 
Para me ters re t urn ed; Address of block in 
storage in BLOKAD 
En tr y to Q S/360 : None 


DFREE 


CONSLD, ZUERR, ABORT, 
WDREAD , WRTRD , NDNRIT 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (ccnt'd) 


Statement or Operation Type 


T T 

Main Processing 
Routine 


+- 


+- 


Routine Called 


Investigates the text block control area 
(TSLOTS) , to find which block can oe written 
onto disk to make space for a different block 
in storage 

Para mete rs passed : Relative track address 
block required in storage in RDTTR. RDTTR-0 
if a block is being created 
P ar amet er s re turned : T F R E E 
Entry to Q S/36 0 : None 


TFREE 


CCNSLD , ZUERR, ABORT, 
WDREAD , WETRD, WDWRIT 


Create space in storage by writing on disk 

Param et ers pa ssed: RDTTR=0, BLOKAD contains 
address of block that can be written out 
Para mete rs ret urned: BLOKAD contains address 
of block in storage that is now available 
Entry to Q S/360: WRITE (BSAM), CHECK, NONE 


WDWRIT 


WRITEX 


Writes a block onto disk and reads a second one 
into its place in storage 

Para mete rs p assed: RDTTR contains relative 
track address of block to be read. BLOKAD 
contains address of block to be written 
Parameters ret urn ed: NOTTR contains relative 
track address of block in storage 
E ntr y to QS/3 60; WRITE (ESAM), CHECK, NOTE 


WRTRD 


I- 


READX , WRITEX, ZUERR, 
ABORT 


Reads a block from disk into space already 
available in storage 

P ara m eters pas sed; RDTTR holds relative track 
address of block to be read. BLOKAD holds 
address of space in storage 

Pa ra m et ers r etu rn ed: BLOKAD holds address of 
block in storage 
Entry to QS /360 : None 


WDREAD 


READX 


Writes a block onto disk 

P ar ameters passed : TEMP4 holds relative track 

address of space on disk 

Entr y to QS/ 360: XDAD(WI), WAIT 


WRITEX 


ZUPL , ZEND 




Reads a block from disk 

P arameters passed : TEMP4 holds relative track 
address of block on disk 

Parameters return ed: PARI — address of input 
area 

P aramet ers ret urn ed : PAR2 — record length 
Entry t o Q S/360: GET MOVE (QSAM) 


READX 


ZUPL, ZEND 


Reads a record from SYSIN 

P ara mete rs passed : PARI — address of input 
area 

Paramet e rs ret u rned : PAR2 -- record length 
Entry to Q S/360: GET MOVE (QSAM) 


ZURD 


None 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 


Statement or Operation Type 


T T 

Main Processing 
Routine 

+ . 


Routine Called 


Puts a record out to SYSPRINT. Pagination 
(paging action) is performed automatically 

Parameters pas sed: PARI -- address of output 
buffer. PAR3 -- address of output buffer 
containing page heading (if any) 

Entry to O S/360: PUT LOCATE (QSAM) 


ZUPL 


PLERRX 


Finds a new text block. Optionally chains the 
new block to the current block and changes the 
status of the current block 

Param e ter s p a sse d: PARI — optionally, a 
reference to the current block. PAR2 — a 
status and chain indicator 

Parameters r et urn ed; PARI -- reference to new 
block; PAR2 -- absolute address of the 
beginning of block 
Ent ry to QS/360 : None 


ZUTXTC 


CCNSLT , TRYMRT , ZUERR, 
ABORT, BLKERR 


4 - 


Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 

Para m eter s pas sed: PARI -- a reference to the 
current block; PAR2 — a status indicator 
Par a meters re t urn ed: PARI — reference of the 
next block in the chain. PAR2 -- absolute 
address of next block in chain 
E ntry to Q S/3 60 : None 


ZCHAIN 


CONSLT , TRYMRT, BLKERR 


+- 




Changes the status of the referenced text block 

Pa ram e ters p assed: PARI -- a reference to the 
block. PAR2 + 3 -- required ’status' byte 
Entry to QS/ 360 : None 


ZALTER 


CONSLT, BLKERR 




Converts a text reference to an absolute 
address and optionally, does not change status 
of the block 

Parameter s p as se d: PARI -- reference to be 
converted and option indicator bit 
Pa ram eters r eturned: PARI -- the absolute 
address 

Entry to OS/ 360 ; None 


ZTXTAB 


CCNSLT, TRYMRT, BLKERR 


Converts an absolute address to a text 
reference 

Pa r ameter s pa ssed: PARI -- a text reference to 
the block containing the absolute address; 

PAR 2 — the address to be converted 
Parameters retur ned: PARI — the required text 
reference 

Entry t o QS/ 360 : None 


ZTXTRF 


CONSLT, BLKERR, ZUERR, 
AEORT 


-+* 


Enters message 'REFERENCED BLOCK NOT IN USE’ 
into dictionary and then terminates compilation 
Entry to QS/3 60: None 


BLKERR 


ZUERR, ABORT 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dict ionary Phases (cont'd) 


Statement or Operation Type 


Main Proces: 
Routine 


T n 

;inq I Routine Calles 


+- 


Supplies storage space for scratch purposes. 

Allocation is made in 512 bytes at a time 
Para m eters passe d: PARI — a count of the 
number of 512 byte blocks required 
Para met ers re t urn ed: PARI — address of the 
allocated storage 
Entr y to O S/ 360: None 


ZUGC 


TRYMRT, ZUERR, ABORT 


Converts an absolute address to a dictionary 
reference 

Par ameters passed ; PARI — any reference to 
the block containing the absolute address; 
PAR 2 — the absolute address to be converted 
Param e ters returne d: PARI — the required 
dictionary reference 
E ntr y t o OS/3 60 : None 


ZDABRF 


CCNSLD , ZUERR, ABORT, 
BLKERR 


+- 


Converts a dictionary reference to an absolute 
address 

Parameter s passe d: PARI -- the dictionary 
reference 

Param e ters ret urned; PARI -- the absolute 
address 

Entry to O S/ 360 : None 


ZDRFAB 


CONSLD , TRYMRD, BLKERR 


Makes an unaligned dictionary entry and 
returns an absolute address 

Paramet e rs passe d: PARI -- address of entry to 
be made; PAR2 -- length of entry 
Para meters returne d: PARI — address of entry 
in dictionary. PAR4 some reference to the 
block 

Ent ry to OS/360 : None 


ZNALAB 


ZDRFAE , ZDABRF, TRYMRD, 
ZUPL , ZUERR, ABORT, 
CONSLD 


4 - 


Makes an aligned dictionary entry and returns 
an absolute address 

Parameter s pas se d: PARI -- address of entry to 
be made; PAR 2 -- length of entry 
Par am eters return ed: PARI — address of entry 
in dictionary. PAR 4 -- some reference to the 
block 

Entry to OS/3 60: None 


ZDICAB 


■ + 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CCNSLD 


■ + 


Makes an unaligned dictionary entry and 
returns dictionary reference 

Parameters passed : PARI — address of entry to 
be made; PAR 2 — length of entry 
P arameters returned : PARI — reference of 
entry in dictionary. PAR4 — absolute address 
of the entry 
En try t o OS/36 Q : None 


ZNALRF 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 


Makes an aligned dictionary entry and returns a 
dictionary reference 

Parameters pa s sed : PARI — address of entry to 
be made; PAR 2 — length of entry 
Para me ters returned : PARI — reference of 
entry in dictionary. PAR4 -- absolute address 
of the entry 
Entry to QS/36 0 : None 


ZDICRF 


I 


ZDRFAB , ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CCNSLD 
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• Table AL1/AN1. 

Modules AL/AN Routine/Subroutine Directory 


r T 

| Routine/Subroutine | Function 

F i — — - 

| TFREE | Finds text block which can be written on disk 

j | to make space for a new block in storage. 

i i 

" ' ■ " J " ■ i 

1 

— ^ 

i 

| TRYMRD 

1 

i 

| Allocates space for a dictionary block. 

i 


1 

| TRYMRT 

i 

1 

(Allocates space for a text block. 


1 

| WDREAD 

l 

1 

| Reads a block from disk into storage. 


1 

| WDWRIT 

i 

1 

| Creates space in storage by writing a block on 
j disk. 


i 

| WRITEX 

l 

1 

|Writes a block on disk. 

| 


1 

| WRTONL 

1 

| Writes on last block on disk. 


1 

| WRTRD 

1 

l 

1 

| Writes a block onto disk, reads a second one 
j into its place in storage. 

i 


1 

| ZALTER 
i 

I 

| Changes status of referenced text block. 


i 

| ZCHAIN 

i 

1 

(Finds next text block in chain. 


1 

| ZDABRF 

1 

I 

1 

(Converts an absolute address to a dictionary 
j reference. 


1 

| ZDRFAB 

1 

I 

1 

(Converts a dictionary reference to an absolute 
( address . 


1 

| ZDICAB 

1 

I 

1 

| Makes an aligned dictionary entry and returns 
j absolute address. 

1 


1 

| ZDICRF 

1 

1 

1 

| Makes an aligned dictionary entry and returns 
(dictionary reference. 

I 


I 

| ZNALRF 

1 

1 

1 

| Makes unaligned dictionary entry and returns 
(dictionary reference. 

i 


1 

| ZNALAB 

i 

I 

1 

(Makes unaligned dictionary entry and returns 
(absolute address. 

| 


i 

| ZTXTAB 

1 

(Converts text reference to an absolute address. 


| ZTXTRF 

i 

1 

(Converts absolute address to a text reference. 

1 

i 

| ZUERR 

1 

1 

(Inserts diagnostic message in dictionary. 

i 

1 

1 

| ZURD 

l 

1 

(Reads a record from SYSIN. 

1 

1 

| ZUGC 

1 

1 

(Supplies storage space for scratch purposes. 

1 

li 

1 

| ZURC 

1 

1 

(Releases scratch storage. 

1 

l 

1 

| ZUPL 

l 

1 

|Puts record out to SYSPRINT data set. 

| 


| ZUTXTC 

1 

| Obtains a new text block. 



L X J 
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Table AM. Module AM Compiler Control Phase Marking 


j Function 

F 

| Marks all non-optional phases and 
jail phases influenced by compiler 
j invocation-time options 


jMain Processing! 

j Routine j Routines Used 

+ 4 

| I EM AM JREQEST, RLSCTL (both in AA) 



I 

A 
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Chart 01. Compile- time Processor Logical Phase Flowchart 
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Chart AV. Phase AV Overall Logic Diagram 
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Chart BC . Phase BC Overall Logic Diagram 
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* NO 


L1A3 X ^ 

****+F 2 ********** 

* PROCESS * 

* LABELS _ * 

* attacheo to ♦ 

* statement * 

* * 
***************** 


* YES 


.* IS ♦<? NO 

♦. INCLUDE-SW **.^*. 
*. ON .* 


***«*F 3** ******** 

* ADD CODE * 
*T0 CALL cleanup* 


***************** 


, X* 


*****F4********** 

* PUT * 

* END-OF-TE XT * 
CODE INTO * 

* TEXT BLOCK * 

* * 
***************** 


***** 
*BG * 
* B3* 


LIE4P X 

**+**G2 ********** 

♦ ENCODE STMNT * 
*_*_*_+-*_*-*-*_* 

♦ USES AND TESTS ♦ 

♦ A PUSH DOWN * 

♦ STACK ♦ 

***************** 


.♦ WAS IT * 
*. THE END FOR 
*• PROC . * 


***** 

♦ BG ♦ 

♦ B3* 


+****H 3 ********** 


***************** 


**** 

* * 

♦ D2 *X. 

* * 
**** 
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Chart BG. Phase BG Overall Logic Diagram 


********* 

* RETURN 

* TO CALLER 


*+***Gl ********** 


DAEOB X 

*****H1********** 

* SFT LEV-BIT, * 

* TOK-PTR FROM * 


***************** 


♦ aer next token * 

wotMt : 

•••••***I**S***** 


*. WHAT is IT .* 
*• •* 

*. . * 


ACTIVATFO .* 


* REPLACENENT * 

* ON ARGS. GET * 

* VALUE FOR * 

* PROJEDyRE * 


***************** 


E3 *. 

. * *. 

NO .* IS *. 
ACTION CALL .* 
*. CLEANUP .* 

*, . * 


DACLN X 

• ****f 3 ********** 

:.s t't&iti'iz.-i 


i nnu w huh i 

SHIsSi 


INTPRT 

****»H3 *•♦*****• 

* INTERPRET 
*-*-*_*_*_*_*_*- 

• .X* MAY SET 

* TOK-PTR 


** ** * J 2 * ** * * * * * ♦ * 

* PUSH LEV-0 T T * * 

* TOK-PTR ANO * 



.* J3 *%. 

• WAS *. 
IT INCLUOE . 
>. . * 


****** 3 ********* 



* PERCENT SIGN 


* 

* OUTPUTS TOKEN 
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Chart BM. Phase BM Overall Logic Diagram 


***** 
*BH * 
* Al* 


***** A 1 ********** 


ta I A ol ijn 

°M?& s Sw 


• *. 

B2 *. 

.* ANY *. 

.* ENTRIES ». NO 
. TO BE 
• .PROCESSED. * 

*. . * 

*. .* 


************* 


***** 
*BW • 
* Al* 


*•**•£ 1 ********* 

* LOAD 

: :mm 

* BLOCK 


* **** c 2 * ****** i *+'• * 


CHAINS 


+****C 3********** 

* MAKE UP * 

* LIST OF * 

K* BLOCKS *. 

* NEEDED * 

* * 
***************** 


, K* 


*****C4* ******** 

* RELEASE 

' %tf 

BLOCK 


04 


# *« 




c* HAVE *. 

NO ,* HE *o VES 

»■••*" PROCESSED ALL.* 

*« ENTRIES .* X 

*o # * ***** 

*a .* * 9 W * 

* * Al* 

* * 


****•[■ 1 ********** 


*«***E2 ********** 


IS *. 

THIS *. YES 

A NEW .*.... 
CHAIN .* 




APPROPRIATE 

SEVERITY 

HEADER 


SET TO 
XT ENTRY 
H CHAIN 


.* skelIton 

.X*. IN CURRENT 
*. BLOCK . 
*• • * 
*. • * 

* VES 


«««**H2* ********* 


**** 

* * 

> X* 04 * 
* * 

**** 


NUMBER 
ro PRINT 
BUFFER 


M3 *. 

HAS ♦. 

.* IT GOT *. YES 
,X*. A STATEMENT .*..... ...X 

*. NUMBER • * 

*. # * 

*, # * 

• NO 


**** j l********* 

siSliis 


**«**j2 ********** 

* * 

* SCAN * 

x : silh% :• 

* * 
***************** 


****J3********** 

MpIkcE * 

— *R * 


•§¥** 


"■SMl* 


.* HAS *. 
•THIS < 
LAST ENTRY 
*. I N CHAIN .* 
*. . * 


.*.... X* DA * 
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Chart BW. Phase Btf Overall Logic Diagram 


***** 

♦ BW * 

* Al* 


♦***A l ********** 
* 

RELEASE * 

ANY LOADED * 
PHASES * 


♦****e i********** 


***************** 


*****t i ********** 

* FREE * 

* ANY * 

* OUTSTANDING * 
♦SCRATCH STORAGE* 

* * 
***************** 


PRINT * 

SYSUT3 

* X 

***** 

*********** *AA * 

* HA* 
* * 


***«£ 1 ********** 

CLOSE < 

AND SY i 


*****F i ********* 
* 

* REALLOCATE 

* TEXT AND 

* DICT BLOCKS 


*****G2********* 


♦• TEXT BLOCKS •*. 


****«H l ********* 
* 

* SET UP 
♦COMMUNICATIONS 

* REGION 


X 

***** 

♦ Cl ♦ 

* 1 1 * 
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Table AS. Phase AS Resident Phase for Compile-time Processing 


Statement or Operation Type 

j Main 
| 

— T - 

Processing | 

Routine j Subroutines Used 

l ........ ....... ... 

Initializes switches for compile- 
time processor 

| ADRP 

| 

T 

| None 

1 

1 ...... 

Loads phases for compile-time 
processor 

| ADRP 

1 

T 

j LOADX (AA) 

1 

...... | _ . ... . ... 

Determines whether Phase EC should 
be reloaded 

| ADRP 

j 

T 

| None 

1 

r 
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•Table AS1. Phase AS Routine/subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


j. + 

I ADRP Unitializes switches for compile-time processor. 

BCKUP2 I Backs up token pointer two places. 

CHBLK | Changes currently busy IVB block status and gets a new block 

CLSBUF IHandles calls to close and write out the buffer. Loads and bases 

phase BJ if necessary. 

COMENT | Scans the limits of a comment, transfers each character into the 

output buffer. 

ENDIVB | Closes an IVB chain. 

FREVAL | Releases a chain of IVBs containing a no longer needed value and 

returns chain to free list. 

GETIVB iRemoves an IVB from the free chain for use by the calling routine. 

GNC I Updates TOKPTR to point to the next character in a particular input 

stream. 

HASH (Accepts an EBCDIC identifier as input and outputs an index. The 

index indicates the beginning of the HASH chain with which the iden- 
tifier is associated. 

INCTST (Determines whether Phase BC needs to be reloaded on return from 

Phase BG. 

INPUT | Reads in an input record from the source data set or from included 

text . 

INRD (Reads physical records from the included data set; unblocks and 

sends them back one logical record at a time. 

NXTTXT (Gets a new text block and sets up address slots. 

OUTPTC I Outputs a single character into one of the three output media: 

IVB’s, text blocks, or external records. 

SRHDIC I Searches the dictionary for the presence of a named itemi. 

STRING I Scars the limits of a string constant, transfers each character to 

output . 

TOKSCN I Examines text, character by character recognizing and returning each 

logical unit of text (called a token). Tokens include identifiers, 
constants, operators, delimiters, etc. 

UPNEWL | Updates temporary linecount slot. 

YAG2 | Loads processor phases for the compile-time processor. 

L J. J 
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Table AV Phase AV Macro Processing Initialization 


r 

1 

| Statement or Operation Type 

1 

“T 

| Main 

I 

1 

T 

Processing | 

Routine | 

I 

Subroutines Used 

r 

(Initializes communication area for 
j compile-time processing 

L __ 

1 

| INIT 

1 

1 

( None 

1 

| 


1 

(Allocates push down stack from 
j scratch storage 

L . _ . 

| INIT 

1 

.. 

T 

| None 

i 

.... ... J 


1 

(Allocates translation tables 

1 ...... 

1 

| INIT 

T 

| None 

1 


1 

(Enters SUBSTR into dictionary 

l .. . - - .. .. 

( INIT 

1 . ._ ... 

1 

| None 
r 


I 

(Creates dictionary entries and 
(values for constants pool 

L 

1 

| INIT 

T 

| None 

1 

r 
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Table BC. Phase BC Initial Scan and Translation 


T T 

Main Processing 
Routine 


Statement or Operation Type 


-+- 


+ ■ 


Subroutines Used 


Recognizes statement type 


PH1SCN 


+- 


TOKEN, DELETE 


Scans until next % character 


PH1SCN 


FINDPC 


Processes PROCEDURE statement 


PH1SCN 


TOKEN, DELETE, IDSRCH, 
ADDSP (FREVAL, OUTPTC) 


Processes labels attached to state- 
ment 


PH1SCN 


IDSRCH 


Encodes statement into internal 
text 


PH1SCN 


PARSE, TOKEN, IDSRCH, ADDSP 
DELETE, CHECK 


Cleans up after INCLUDE in initial 
scan 


PH1SCN 


None 


Begins statement identification 
process 


PH1SCN 


None 
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Table BC1. Phase. BC Routine/Subroutine Directory 

r t 1 

| Routine/Subroutine | Function | 


ADCONS 

ADD3P 

ADICT 

ADPROC (BF) 

ASSIGN 

CHECK 

DECLAR (BF) 
DELETE 

DO (BE) 

DONE (BE) 

FINDPC 

IDSRCH 

IF (BE) 
KYWDSR 
PARSE (BE) 

PIF4 

PH1SCN (BE) 
RETURN 
STB 3 

STMT ( BE ) 
TOKEN 

UPDLIN 


Obtains the dictionary reference of a constant, entering it into the 
dictionary if necessary. 

Adds a processor-created item to the dictionary. 

Adds a normal item to the end of the appropriate hash chain and 
returns the dictionary reference. 

Processes PROCEDURE statement. 

Processes assignment statements. 

Checks back for undefined labels and identifiers not declared within 
the block. 

Declare statement processor. 

Skips over bad text up to the end of a statement, field or proce- 
dure . 

DO statement processor. 

Checks stack for possible THEN'S or ELSE's after statement is com- 
pleted . 

Scans source text, character by character, searching for macro per- 
cent character. 

Obtains the dictionary reference of an identifier, entering it in 
the dictionary if necessary. 

IF statement processor. 

Checks for single or multiple keywords. 

Parses and generates interpretive macro code for compile-time 
expressions . 

Provides special handling for end of included text. 

Main controlling routine for phase. 

Processes RETURN statement for PROC. 

Collects labels into label list and identifier statement type on 
first two tokens of statement. 

Diagnoses statement type and builds label list. 

Returns significant tokens to PH1SCN and writes out diagnostics for 
tokens in error. 

Generates an update linecount instruction. 


l r 

Note: See also BC Subroutine Package in Table AVI. 


j 
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Table BG. Phase BG Final Scan and Replacement 


r 

1 

| Statement 

L 

or Operation Type 

"T 

(Main Processing 
j Routine 

4 . 

T 

| 

1 

4 _ 

-] 

Subroutines Used | 

j 

r 

| Final scan 

1 

for 

replacements 

1 

| PH 2 SCN 

i 

T 

| OUTPUT, 

i 

TOKSCN, 

SRHDIC | 

j 

r 

| Recognition 

l 

of 

end of text 

T 

| PH 2 SCN 

1 

1 

| OUTPUT, 

1 . . ... 

TOKSCN, 

SRHDIC ( 

. .._ 4 

1 

| Recognition 

i 

of 

an identifier 

1 

| PH 2 SCN 

i 

T 

| OUTPUT, 

1 ... 

TOKSCN, 

1 

SRHDIC | 

1 

r 

| Recognition 

i 

of 

macro action 

T 

| PH 2 SCN 

1 

1 

| OUTPUT, 
+ 

TOKSCN, 

~ 1 

SRHDIC | 

1 

r 

| Recognition 

l 

of 

% character 

1 

| PH 2 SCN 

1 

1 

( OUTPUT, 

TOKSCN, 

1 

SRHDIC | 

.1 

r 

| Recognition 

i 

of 

other characters 

T 

j PH 2 SCN 

1 

1 

(OUTPUT, 

1 

TOKSCN, 

i 

SRHDIC | 

1 

1 

| Terminates 
j handling 

L 

and 

cleans up INCLUDE 

T 

| PH 2 SCN 

i 

. _|_ 

| OUTPUT, 

i 

4 - 

TOKSCN, 

1 

SRHDIC ( 

.j 

r 

| Re-establishes 
| level text 

L 

scan at next higher 

| PH 2 SCN 

1 

_ 4 _ 

r 

| OUTPUT, 

1 

4. 

TOKSCN, 

SRHDIC | 

J 

r 

(Performs replacement on activated 
| identifiers 

L 

1 

| PH 2 SCN 

1 

.X _ _ 

| OUTPUT, 

1 

X 

TOKSCN, 

1 

SRHDIC | 

J 
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i Table BG1. Phase BG Routine/subroutine Directory 


r T - 

| Routine/Subroutine | 

I- — — 


Function 


CLOUT (BJ) 
CONVRT 

DACLN 

DAEOB 

DAEOBF 

DAIDEN 

DAMAC 

DAOTHR 

DAPENT 

DAPRTC 

FUNCTN(BJ) 

GETDIC 

INCONT 

INTPRT (BI) 
OUTPT 
PH2SCN 
POP 

PROINV (BI) 

PUSH 

PUNCH (BJ) 

SYNCH 

TPEEK 

ZAASIGN (BI) 
ZACOMP (BI) 
ZACONCAT (BI) 
ZACVT (BI) 
ZALGCL (BI) 
ZAPUSH (BI) 


Closes output buffer, and writes out record on SYSUT3. 

Handles conversions between the three data types used in the 
compile-time processor . 

Terminates INCLUDE text handling and frees text blocks containing 
included text. 

Re-establishes scan at next higher level text. 

Recognizes and processes end of text condition. 

Recognizes and processes identifier in text. 

Recognizes and processes macro action character. 

Recognizes character and outputs it. 

Handles replacement operation for text identifiers. 

Recognizes % character and recalls Phase BC if appropriate. 

Handles built-in functions. 

Picks up a two-byte dictionary reference from scrubbed text, per- 
forms error checking, resolves indirect references, and returns both 
relative and absolute address. 

INCLUDE control routine. Opens DCB , finds member, sets up buffer, 
and initiates look-ahead read. 

Interprets the macro code generated by the Phase I scan. 

Handles the output of tokens. 

Scans text blocks. 

Pops the top temporary off the Phase II stack. 

Special entry point to interpreter for invocation of procedures 
found in source program text. 

Pushes next available temporary onto the Phase II stack. 

Punches down output record, in source code, on MACDCK option. 
Synchronizes linecount, closing buffer if necessary. 

Scans for procedure reference argument list left-parenthesis. 
Performs identifier assignments for INTPRT. 

Performs all logical comparison operations for INTRPT. 

Performs string concatenations for INTPRT. 

Converts stack items to required type by 'RETURNS' attribute. 
Performs all logical operations for INTPRT. 

Performs stack maintenance for INTPRT. 
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Table BG1. Phase BG Routine/subroutine Directory (cont'd) 

Function 


r t 

| | Routine/Subroutine | 


| y 

| | ZARITH (BI) 

I 

| | ZATRAI (BI) 

I 

| |ZATRAN (BI) 

I 

| | ZJSUBS (BJ) 

L 




Performs all arithmetic operations for INTPRT. 

Handles transfers from included text to including text. 
Performs all transfer operations for INTPRT. 

Built-in function SUBSTR. 
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Table BM. Phase BM Diagnostic Message Determination and Printing 


Statement or Operation Type 


|Main Processing! 
I Routine 


Subroutines Used 


(Determines whether error messages | XA 
j are to be printed j 


j Scans error message text skeletons j XA8 
j and prints them out j 


XA5 0 , XA70, XA90 , XA110, ZUPL 


Table BM1. Phase BM Routine/Subroutine Directory 


| Routine/Subroutine j 


Function 


Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 


XA9 (BN) 


XA12A 


XA3 0 (BN) 


XA3 2 (BN) 


XA3 5 (BN) 


X.A4 0 (BN) 


XA50 (BN) 


XA70 (BN) 


XA9 0 (BN) 


XA110 (BN) 


Table BW. Phase BW Cleanup Phase 


Statement or Operation Type 


(Main Processing! 
I Routine 


Subroutines Used 


j Resets all tables and communi- j IEMBW 

j cations region cells to the value j 
| required by the compiler proper ! 
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Chart 02. Read-In logical Phase Flowcnart 


***** 
*02 * 
* A 1* 



*." SE^ 
*. OPTION 


****«B1 ********** 

♦1ST PASS Cl* 
*-*-*-*-*-.*-*-*-* 
* LIST IF REQ'D * 
•AND CONVERT TO * 
•INTERNAL JHARS * 


•****C 1 ********** 
•NAKE DICT ENTRY 
•FOR LAQEL| ANO 


5ICT ENTRV* 
... -ABELS ANO « 
* CHECK FOR * 

:JrJsE.*: 




iM 


SCAN TEXT , 
•ANALYZE SYNTAX • 
* OF STATEMENTS * 

***************** 


El 

.* ANY 
.* ALLOCAT 


G3L* 


****«E 2 ********** 

•3RD PASS CO* 
•-•-•-•-A-*-*-*-* 


FI 


• *. 


*, 


ANY 

.•STREAM I/O *. YES 
. OR FORMAT .*,,.. 
♦STATEMENTS.* 

*• • * 

*. . * 

NO 


•****Q1 *»*••*•••• 

*5TH PASS CV* 

*-*-*-*-*-*-*-♦-* 
•MAKE CHAINS 
•CALL, — 1 9 


,»LL, 

ALLOC 


HA I NS OF * 

Z&l: 


*««**F2 ********** 

**TH PASS CS* 
*.*.*_ *-*.*-*-*.* 
X* SCAN JF XT rn * 
*ANAL nt SYNTAX * 
* OF JTATENJNTJ * 


***** 

♦A3 * 
* Al* 
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hart BX. Phase BX Overall Logic Diagram 



8*70 

;•****••*• 

* READ ONE 


.» NEAR *. YES * RECORO 

*. ENO OF .* AHEAD ANO 

*. RECORD .* * TACK IT ON 


25, BAAS 

****•0 ?**••****• 


.* START *. YES * SET 

*. OF COMMENT .*« APPROPRIATE 

*. OR STRINj.* • SNITCH ON 


:*of cSSSent 

*. OR STRINj.* 
• NO 


.* POSSIBLE *. YES 
► . KEYWORD, 

•PERIOD, or.* 

*« COMMA. * 


*:* S{f° *: 

*, RFC ORO .* 

*. .* 

•< •* 

* YES 


BA TO $ 

•**<i*Gl ********* 

* WRITE 

* BACKING 

* STORE 

****•*••***•*•*•1 



. * *, 

.* IN *. YES 
X*. COMMENT .*.... 


*, . * 

* NO 


«* *• 

c* OPERATOR YFS 
* 8 KEYWORD 

*• • * 

♦ NO 


.* *• 

b* *• YES 

, PERIOD 

*„ 0 * 

*5 . * 


***** E *********** 




5A1 1»***RA********** 

* REPLACE J 

, X* OPERATOR *. 

* SYMBOL * 

* • 


****«H2 ********* 


NEXT *. YES * ADJUST 

RECORD .*.. X* TEXT 

ALREADY .* * IN CORE 


*. IN .* 

*. . * 

* NO 


IS *. 
IT LAST .* 

rtcopo .* 

*. , * 

*. .* 

* YFS 


**** ** ft* * * * * * ** * 


,* mu. OWED 

It.. RV A 

*r PFRfO!) 


*. YFS * REPLACE * 

B v + 

n* * COLON * 

* * 
***************** 


***** H *********** 




***«*j } ********** 


***************** 


‘ ***** jf ********** 
* * 

* RFPLACF * 

<* RY * 

♦ SFMT-COLON * 

***************** 


•****^4 ********* 


**************** 
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Chart Cl. Phase Cl Overall Lcgic Diagram 


***** 

*cr * 

* Al* 


***************** 


**** 


, *. 


B1 

.* TEST *, 
.FOR LABEL OR*. 
*. PREFIX 
*. OPTIONS .* 
*. .* 


POPLST 

•****B2 ********** 

* INSERT LABELS * 

* AND/OR PREFIX * 
...X* OPTIONS IN * 

* OICT IONARV • 


PROC, ENTRY ,*.00, BEG IN 

Cl *. 

.* TEST *. 

.* FOR BLOCK *. YE 
*. HEADING .*.. 
*. STATEMENT.* 


10 .*. 

01 *. 

. * * 
.* TEST 
*. FOR 

*. KEYWORD 


ASSIGN .*. 

El *. 

.* TFST *. 

.♦FOR NULL OR*. YES 
*. ASSIGNMENT .*.... 
*. STATEMENT.* 

*. . * 


****»C2 ********** 


INCREASE 
CK ANO/Ok 
VEL COUNT 


tL iM. f 

BY I 


*****03***++++*** 

StWc 


TEST *. YES * BLOCK ANO/OR * 

•ess- .* x : 

*. •* +T0 OUTPyT TEXT * 

* # *♦ ***************** 


• *• 

04 *• 

*. ZERO .* 


**•* . 

* * . 

* E2 *.X. 

• * • 

• **• . 

STAT2 X 

•****E 2 ********** 


* TRANSFER * 
X* STATEMENT TO *. 

* OUTPUT TEXT * 

* • 


SKIP 
TO NEXT 
SEMI-COLON 


• *•* 

* * 
X* B1 * 
* • 
**** 



*CL * 
* 62 * 
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hart CL 


Phase CL Overall Logic 


Diagram 


H * 


» ♦. 


B egin , itdo , 

Of GOTO. WAIT. 
OELAY, EXIT. STOP, 


TEST FORI 

P wrItf, 
REWRITE, DELETE 

LOCaIe, ?In6re„ 


ffib 


TEST FORI 

ALLOCATE 
ON. SIGN 
REVERT, A 
GOOB, IF, 


02 *. 

. * *. 

, * TEST *. 
*. FOR SPECIFIC .< 
••KEYWORDS^, * 

* NO 


*****B3***** ***** 

<: pr ?h c i ss s 

* statement • 

* » 
••••***•***••*•** 


*V***C3********** 


EHENT • * X* 


S 

•° 2 
TEST 

*. FOR OTF 
*ST ATEMEF 
*. # * 
*, . * 

* NO 


.X* 


•*••*03 ********** 

* TRANSFER * 
STATEMENT TO * 
OUTPUT TEXT *. 
WITHOUT * 
CHICKING 


******* 


******** 


*. 


X 

.*, 

E2 < 

, * 

.* TEST FOR 

► . END OF 
* "SRAM 

.* 

.* 

**** 

* * . 

► F2 *. X. 

* * . 

*•** . 

S**4«F2«********* 


*, 


NO 


X 

***** 
*cp ♦ 
* Si* 


NOTE I 

mi 

CALL, 


PHAS 
T QON. 

R ALLOC 


m, 


IF PROGRAM 


* SKIP TEXT TO * 

itiMfc&HffsP 


F3 

* 

TES 


* TRANSFER 
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Chart CO. Phase CO Overall Logic Diagram 


*co • 

* Bl* 
* * 


SCAN2 


Bl 


» *• 


.* *. 

.* TEST *• YES 

• •X*» FOR • *•«•• 

• *. DECLARE .* 

• *• • * 

• n • * 

**** * NO 

* * # 

* Bl * . 

* * # 

**** s 


*****B 3 ********** 


.* TEST *. YES 

► . FOR •*•••• 
*• ALLOCATE • * 


BCDL 

* ** * *C 2 * ** *■ ** ** ** 

* CHECK SYNTAX * **** 

* OF * * * 

.••X* DECLARATION ♦••••X* Bl * 

* OR * X * * 

* ALLOCATION * • **•* 

****(*****4 - 


CAL^OP 


,* TEST 
, FOR 

*. CALL 


.* TEST *. 
*. FOR END OF « 
*. PROGRAM • * 


****D2********* 


SCANT 

*«***F? ********* 

* TRANSFER 

* STATEMENT 
X* TO OUTPUT 

* TEXT WITHOUT 

* PROCESSING 


***** 

*cs * 

* B2* 
* * 
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Chart CS . Phase CS Overall Logic Diagram 


INPUT FROM PHASE C 
DOES NOT CONTAIN 0 
OR ALLOCATE STATEN 


CL IF PROGR 
DECLARE, CA 
MENTS 


READ, WRITE, 

8fefc, P Pl6se. 

REWRITE, DELI 
LOCATE, I&IOfi 
UNLOCK 


*•**•[) )******••• 


02 *. ***** 03 *********' 

• * *. * 

.* TEST FOR *. NO * TRANSFER 

*. END OF X* STATEMENT TO 

*. PROGRAM .* * OUTPUT TEXT 
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Chart CV. Phase CV Overall Logic Diagram 


***** 

*cv * 

* B2* 


.* TEST *. V 
*. FOR 

*.LABEL(SI .* 


•***B3****«***« 


.* TEST *. 
. FOR PREFIX . 
*. OPTIONS .* 


****C3 ********* 

PROCESS 

PREFIX 

OPTIONS 


. * FOR . __ 

► . AND NOCHECK .* X 

*. LISTS .* 


♦***D 3* ******** 

FORM THE 
NECESSARY 
PSEUDO 
STATEMENT 


BEGIN. C 
DECLARE 


CHEKON 

*****F3********* 

SURROUND 


♦ .ON-STATEMENT ,* X* 


* THE ON-UNIT 


*••••******•***• 


TEST 

FOR 

•END' 


*************** 


► TEST *„ YES 
FOR END OF .*.... 

► . PROGRAH .* 


***** 

• EG * 

* Al* 


TRANSFER * 

STATEMENT *. 

WITHOUT * 

CHECKING * 

••*••*••••***•** 


104 



Table BX. Phase BX 48-Character Set Preprocessor 


Statement or Operation Type 

| Main 

"1" 

Processing | 

Routine | Subroutines Used 

.. . i 

Translates keyword table to inter- 
nal code and initializes 

| BA 0 0 

] 

i 

| None 

1 

... 1 ...... 

Reads a record 

| BAl 
_r 

T 

| ZURD (AA) 

i 

Scans text 

T 

| BA1A 

1 

| None 

r _ ..... . 

Handles operators and keywords 

| BA5 

| None 

. ... i ..... ... 

Replaces operator keywords 

| BA11 

T 

| None 

l 

Replaces comma-dot by semi-colvon 
where applicable 

| BA 20 

1 

- -i- 

T 

| None 

i 

i .... .. . 

Deals with quote marks 

1 

| BA2 5 

T 

| None 

r . _ 

Maintains parenthesis level count 

T 

| BA30 

-L ... . 

| None 

-L ..... _ 

Replaces period-period by colon 

t 

| BA 4 0 

1 .. 

T 

j None 

... i 

Processes a slash 

1 

| BA50 

..j. 

! 

| None 

... ... _L . . .... . . ... 

Reads one record ahead in case of 
need 

| BA7 0 

1 

T 

| None 

i 

i. . 

Restores the situation when a read 
ahead has taken place 

| BA8 0 

1 

1 

i 

| None 

i 

i 

Puts out converted text and origi- 
nal text onto backing store 

1 

| BA90 

1 

i 

| ZUBW 

1 


l r r 
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Table CA. 

Module CA Read-In 

Common 

Block 

1 


r 

1 

j. 

| Provides 
j passes of 

L 

Function 



T 

1 

+ 

| ACONST, 
j MVCHAR , 

J. 

Subroutines j 

subroutines common 
the read-in phase 

to all 

five 

DECINT, EXP, EXPAND, EXPLST, IDENT, | 
OPTOR, SCONST, SINGLE, SQUID | 


Table CA1. Module CA Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


h 


| ACONST 
DECINT 
EXP 

EXPAND 

EXPLST 

IDENT 
| MVCHAR 
OPTOR 

SCONST 

SINGLE 

SQUID 


Checks for a valid arithmetic constant. 

Checks decimal integer. 

Diagnoses expressions. 

Expands iterations of string constants and picture characters. 

Checks for a list of expressions separated by commas but enclosed in 
parentheses . 

Checks for a valid identifier. 

Moves text from one address to another. 

Checks for an operator and replaces the two-byte operators by one- 
byte codes. 

i Checks for a valid string constant. 

Diagnoses a single expression in parentheses. 

Checks for a valid subscripted and qualified identifier. 
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Table CC. Module CC Read-In Common Block 2 

r t 

|| Function | Subroutines 


(Provides subroutines common to all five | CHAR, CHECK, KEYWD, MESAGE, NONEX, 
(passes of the read-in phase JNULINS, OPTEST, PICT, PREC, SCFLOW 

I - X 


T 

I 


J 


Table CC1 . Module CC Routine/Subroutine Directory 


, T - 

Routine/Subroutine | 


Function 


CHAR 

CHECK 

KEYWD 

MESAGE 

NONEX 

NULINS 

OPTEST 

PICT 

PREC 

SOFLOW 


Diagnoses the CHARACTER and BIT data attributes. 

|Tests the top entry in the stack. 

Identifies keywords and hands back the replacement character to the 
caller . 

Provides a diagnostic message. 

Checks stack for non-executable statements. 

Inserts null statement in output text. 

Tests the output string and moves text to the output. 

Diagnoses a picture. It uses a TRT table set up for the purpose. 

Diagnoses the precision, and the attributes and format items which 
use it. 

Bumps stack pointer and checks for stack overflow. 


Table CE. Modules CE, CK, CN, and CR Read-In Keyword Block 

r 

| Function 

h 

| Provides tables of keywords in internal 
j code, together with replacement code. 

|No functional code exists in these modules. 

| Refer to Appendix B for details of keyword 
j tables . 

L 
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Table Cl. Phase Cl Read-In First Pass 


r T t 

I (Main Processing! 

| Statement or Operation Type j Routine | Subroutines Used 

1 + 

|Controls main scan, identifies | RSTART (ASSIGN, BADST1, BEGIN, DO, 

| statements, and analyzes some in j (ELSE, BUMP, END, EOP, ERROR, IF, 

j detail | (ON, POPLST, PROC, READ, SIGRVT, 

I j | STAT2 , STRING, plus those 

j j (subroutines contained in modules CA 

j | j and CC 

L X 1 


1 

I 


Jl 


Table CI1. Phase Cl Routine/Subroutine Directory 


r T' 

| Routine/Subroutine | 

h 


Function 


ASSIGN (CG) 
BADST1 

BEGIN (CG) 

BUMP 

DO (CG) 

ELSE (CG) 
END (CG) 

ENTRY 

EOP 

ERROR (CG) 
IF (CG) 

ON (CG) 
POPLST 

PROC 

READ 

RSTART 

SIGRVT (CG) 
STAT'2 (CG) 
STID 

STRING (CG) 


Diagnoses an assignment statement. 

Recovers from failure to recognize a statement type; skips to next 
semi-colon. 

Checks the BEGIN statement and makes an entry in the first pass 
stack . 

Advances the input Data Pointer (DP), skips blanks, if any, forcing 
source text to be read into storage as necessary. 

Checks the DO statements and makes an entry in the first pass stack. 
Unstacks an IF compound statement. 

Processes three different types of END statements; PROCEDURE-BEGIN ; 
DO; iterative DO. 

Processes ENTRY statement. 

Processes end-of-program marker, and returns to compiler control in 
order to load next pass. 

Handles false starts on possible statements. 

Scans the IF statement and makes entry in first pass stack. 

Diagnoses the ON statement and makes entry in first pass stack. 

Removes prefix options from the text and places them in the dic- 
tionary . 

Scans the PROCEDURE and ENTRY statement and makes an entry in the 
first pass stack. 

Reads source text into storage, translating it into internal code, 
except for character strings; removes comments; prints source list- 
ing and prefix options. 

Controls the first pass scan. Enters statement labels into the 
dictionary . 

Scans SIGNAL and REVERT statements. 

Handles all other statements. 

Statement identifier routine. 

Scans character strings. 
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Table CL. Phase CL Read--In Second Pass 


r t t 

| |Main Processing! 

j Statement or Operation Type j Routine | 


Subroutines Used 


F + 

| Scans for statements handled in | SCNA 

jthis pass, analyzing them in j 

j detail. Skips over other statements! 


+ 

| BUMP, DELAY, DSPLAY , DO, FREE, 

| GOTO, ITDO , LABEL, PROC , RETURN, 
j TRTSC , plus those subroutines con- 
tained in modules CA and CC 


L. 


X. 


X 


I 


J 


Table CL1 . Phase CL Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 


BUMP 

DELAY 

DSPLAY 

DO 

EOP 

FREE 

GOTO 

ITDO 

LABEL 

OPTION 

PROC (CM) 

RETURN 

SCNA 

TRTSC 


Increments the input Data Pointer (DP), skipping over blanks, 
obtaining a new text block if necessary. 

Processes DELAY statements. 

Processes DISPLAY statements. 

Processes DO statements. 

Processes end-of -program marker, and releases control to phase CO or 
CS, or CV (CO and CS are optional phases). 

Processes FREE statements. 

Processes GOTO statements. 

Processes iterative DO statements. 

Diagnoses LABEL attributes. 

Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 

Analyzes PROCEDURE attributes and options, and completes the diag- 
nosis of PROCEDURE and ENTRY statements. 

Processes RETURN statements. 

Main controlling routine of this pass. 

Skips over all other statements. 
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Table CO. Phase CO Read-In Third Pass 


r T T 1 

| | Main Processing! | 

| Statement or Operation Type j Routine j Subroutines Used j 

^ 1 + H 

j Scans for DECLARE, CALL, and |SCAN2 | ATTLST, BUMP, CALLOP, DECL, DEFIND, | 

j ALLOCATE statements. Analyzes | |DIMS, ENTRY, ENVMNT , EOF, j 

| syntax of attributes by calling | j GENRIC, LABEL, LIKE, USES, IVLIST, | 

(appropriate subroutines j (and those subroutines contained in j 

| j | modules CA and CC j 

L X X J 


Table COl. Phase CO Routine/Subroutine Directory 


r t 

| Routine/Subroutine | 

f- 


Function 


ATTLST 

BDCL 

BUMP 

CALLOP (CP) 

DECL 

DEFIND 

DIMS 

ENTRY 

ENVMNT (CP) 

EOP 

GENRIC 
IVLIST (CP) 
LABEL (CP) 
LIKE 

PSQUID (CP) 
REFER (CP) 
SCAN 2 

SCANT 

USES 


Processes an attribute list. (Recursive) 

Processes DECLARE or ALLOCATE statement. 

Advances Data Pointer (DP), obtaining new input block if necessary. 
Checks CALL statements and options. 

Processes the DECLARE and ALLOCATE statements. 

Checks the DEFINED attribute. 

Examines the dimension specifications. 

Checks the ENTRY attribute. 

Removes environment information from the text and inserts it into 
the dictionary. 

Processes the end-of-program marker, and releases control. 

Processes the GENERIC attribute. 

Processes the INITIAL attribute. 

Analyzes LABEL attribute. 

Processes the LIKE attribute. 

Checks for a qualified subscripted identifier in parenthesis. 

Checks the REFER attribute. 

Scans for DECLARE, CALL, or ALLOCATE statements, moves others to the 
output string unaltered. 

Moves text to semicolon without alteration. 

Processes the USES and SETS attributes. 
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Table CS. Phase CS Read-In Fourth Pass 


• T * T" 

| (Main Processing! 

I Statement or Operation Type j Routine j 


Subroutines Used 


j Controls main scan and identifies j SCNA 
j I/O statements for further analysis! 


| EOP , FORMAT, GET, LIST, OPEN, | 
(READ, TRTSC , plus those subroutines! 
j contained in modules CA and CC | 

.j. j 


Table CS1 . Phase CS routine/Subroutine Directory 


j Routine/Subroutine j 

»■ +■ 


Function 


Processes end-of -program marker and releases control. 

Processes the FORMAT statement and format lists. 

Processes GET and PUT statements. 

Processes data lists. 

Diagnoses OPEN and CLOSE statements. 

Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 
DELETE. This routine also checks for permissible combinations of 
these statements. 

Main scan of this pass. 

Skips over all statements other than I/O, moving them to the output 
text. 
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Table CV. Phase CV Read-In Fifth Pass 


r 

I 

| Statement or Operation Type 

^ 

(Identifies statements for which it 
j must build chains 


L 


T T 

|Main Processing! 


| Routine 

| 

| SCNA 


| Subroutines Used 

i 

| CALLIN , CHAIN, DECL3 , DC3 , END3 
| ENTRY3 , EOP , POA1, PROC3 , TRTSC 
j and those subroutines contained 


| | modules CA and CC . 

x x 


in 


\ 


j 


Table CV1 . Phase CV Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 

h 


Function 


CALLIN (CW) 

CHAIN 

CHECKON 

DECL3 

D03 

END3 

ENTRY 3 

EOP (CW) 

ILABSN (CW) 

POA1 

POC1 

PROC3 

SCNA 

SCNZ 

TRTSC 


Makes up the CALL chain. 

Forms chains. 

Checks the fifth pass stack for ON entry, in order to insert 
PROC-END statements round the ON unit. 

Chains the DECLARE statement to the appropriate PROC or EEGIN state- 
ment. 

Makes a stack entry for DO block. 

Checks the fifth pass stack. 

Makes an entry in the ENTRY chain. 

Processes end-of-program marker, and releases control. 

Creates pseudo-assignment statements for initial labels. 

Analyzes prefix options in greater detail. 

Processes check lists. 

Makes an entry in the PROCEDURE-EEGIN chain. 

Main controlling routine of the pass. 

Extracts statement number for label entry. 

Skips over statements not required for analysis in this phase. 
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'hart 03. Dictionary logical Phase Flowchart 


mnitializn eg* 

♦SET UP HASH TAB* 
*£ INSERT TABLE * 
♦ENTRIES IN CHNS* 

♦ ♦♦♦* ****** 


+♦♦*♦ 01 ♦*♦**+*+** 
♦CREATE OICT ENT* 
♦FOR PROC* BEGIN* 
♦AND ENTRY STMNT* 


♦♦♦♦♦Cl ♦♦♦**♦♦♦*♦ 

♦ DECL PASS 1 El* 

♦ ..♦_♦_♦_♦_♦_♦-♦-♦ 
♦SCAN DECL CHAIN* 
♦PREPARE ATTRIBS* 
♦FOR NEXT PHASE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦□!♦♦♦♦♦♦♦♦♦♦ 

♦DECL PASS 2 EK* 
*-.*_♦_*_*_*_*_*_ * 

♦SCAN DECL CHAIN* 
♦MAKE ENTRY FOR * 
♦EACH DEC VARIAB* 
♦♦♦♦♦♦♦♦♦♦*♦*+*♦♦ 


♦♦♦♦+E 1 **♦***♦♦♦♦ 
♦COMMUN IC ATN S EP* 
♦-.♦_♦_♦-♦_♦_♦-♦_♦ 
♦SET LATE PHASES* 
♦WANTED OR UNWTu* 
* ACC TO FLAGS * 


***** Fl**+* ♦+♦*♦♦ 

♦SCAN ENT TYPE 1* 
♦CNN MAKING ENT * 
♦TYPE 2 C 3 DICT* 
♦ ENTS FOR DATA * 
♦TYP RET BY PROC* 

*u+* **♦*♦♦♦♦♦*♦♦* 


♦DIC ENTRIES FOR* 
♦EXTERNAL ENTRY * 
* NAMES * 
******♦**♦♦♦**♦♦* 


.* DOES *. 

,,* PROGRAM *. YES 
*o CONTAIN L IKE .*.... 
♦.ATTRIBUTE. * 


♦♦♦♦♦M2 ♦♦♦♦♦♦♦♦♦+ 
♦LIKE EW* 

♦-♦-♦_♦-♦-♦-.♦_♦_♦ 
, X*SCAN LIKE CHAIN* 
* EXPAND ALL * 
•LIKENED STRUCTS* 
***************** 


.♦ALLOCATE D&*. VES 
*PTR. QUALIFIER.*.... 
• IN PROGRAM.* 

*. . * 


♦ALLOCATE EY* 

♦_♦-♦-♦_♦-♦_♦_♦- ♦ 
» X*COP Y DICT ENTRY* 
♦ OF ALLOCO £ PTR* 
♦QUALFD VARIABLS* 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦ 


*+*+*K 1 +*♦♦*♦♦♦** 
♦CONTEXT FA* 

♦ -♦_♦_♦-.♦_♦_♦-♦-.♦ 
♦SCAN TEXT. MAKE*. 
♦ENTRY FOR COND * 
* NAMES £ FILES * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦K2 ♦♦♦*♦*♦*♦* 

* MAKE DICT * 

* ENTRIES FOR * 

, X*CONSTANTS USED *. 
♦IN THE PROGRAM ♦ 

* • * 
♦♦♦♦♦♦♦♦♦*♦+♦♦♦♦♦ 


♦****A3 *♦***♦*♦*♦ 

* BCD-DICT REF FE* 

♦_♦-♦_♦_♦_♦-♦_+_♦ 
..X* CHANGE BCD TO * 

* DICTIONARY * 

* REFERENCES * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦ 


♦ ♦♦♦♦B 3** ♦♦♦♦♦♦♦♦ 
♦CHECK FI* 
*-*-*-*-*-*-*- ♦-♦ 


.* SETS *. 

.* OR USES *. YES 


(♦PROCESS SETS £ * 
* USES LISTS IN * 
♦THE DICTIONARY * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦ 03 ♦♦♦♦♦♦♦♦♦♦ 

♦ON FO* 

♦_♦-.♦-♦_♦-♦-♦-.♦_♦ 
♦CONSTRUCT OICT * 

* ENTRIES FOR * 

* ON-CONDITIONS * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


* ANY STATEMENT * 
♦CON TNG A DUMMY ♦ 
♦OICT REFERENCE * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


.* ANY *. 

.* PICTURES *. YES 
IN THE .*.... 
*. PROGRAM .* 

*. • * 

♦• • * 

* NO 


♦ ♦♦♦♦^♦♦♦♦♦♦♦♦♦^ 

♦PICTURE FQ* 

*- ♦- ♦-+_♦-♦-♦_♦_♦ 
» X*CHEC K VALIDITY * 

* OF PI CTURE * 

* CHAIN * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦ ♦♦♦♦Q 3 ********** 

♦HOUSEKEEPING FT* 
♦-♦_♦-♦_♦_♦-♦„♦_♦ 
♦CHAIN VARIABLES* 
♦OF EACH STORAGE* 
♦CLASS £ CONSTS * 
*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦ ♦♦MB ♦*♦♦♦♦♦♦♦♦ 

* UNCOMMON * 

* PICTURE AND * 
♦DIMENSION TABLE* 

* DICT. ENT RIFS * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦j 3 ♦♦♦♦♦♦♦♦♦♦ 

♦2ND FILFMRGE FV* 
*-*-*-*-*-♦-*-*-* 
♦AFTER ALLOCATE ♦ . 

* PROC OR BEGIN * 

* STATEMENTS * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦+♦♦ 


♦♦♦♦♦J4 ♦♦♦♦♦♦♦♦♦♦ 

* PROCESS * 

* ADJUSTABLE ♦ 

oX* EXTENTS ON * 

* BA SCO VARIABLES* 

* * 
♦♦♦**♦+*+♦♦♦♦+♦♦♦ 


.* ATR *„ 

> OR XREF *„ 
LISTING 
REQUIRED o* 


****♦♦£ 4* ********** 

* PRINT ATP. * 

< ANO/OR XRFF 
* LISTING ♦ 
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Chart E3. Phase EG Overall Logic Diagram 


S MiJ'Mtf 


****************1 


*****fti ********** 
* INSERT LABELS * 

jmsvnPS 1 ’: 


CA7 S 

«****C1 ********* 

* * >R0 is8f n ,m 


* MOVE * 

:,N s Vo" c fp?s : 

***************** 


* 01 *.x. 

* * * 
**** X 

• *• 

01 *. 


CAPROC X 

**•**02 *** ****** 


*****03********** 

* F.P. TYPE 1 * 

* iNTRlFi * 

•**••*«•****•••** 


•SCAN ATTR 


aKwr 


♦STATEMENT. [ABEL? 


*«••«[);• ********* 

♦ CHAIN ♦ 

♦ VARIOUS * 

<* ENTRY 5 ICT ♦ 

♦ ENTRIES ♦ 

♦ ♦ 
***************** 


V 

,*, 

El ♦. 

.♦ *. 


St NOTE l 
***** 




**»**f.f ********* 

* UPDATE 

* NAPSTACK IN ' 

* SCRATCH 

* STORAGE 


W SKEsi: 


•***f 3********* 


114 



Chart El 


Phase El Overall Logic Diagram 
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Chart EL. Phase EL Overall Logic Diagram 
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Chart EP. Phase EP Overall Logic Diagram 
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Chart EW. Phase EW Overall Logic Diagram 
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*. CHAIN • ♦ 


*«** . 
* ♦ • 
* E2 ♦. X. 


.* ANY ♦ . NO 

, X*. PARAMETERS 

*• . * 


ENO 

OF 

CHAIN 


***«*E2 ********** 


***************** 




E5 


♦* 


SCAN TEXT ♦X ...♦. 


r a 

.♦Xlloca 
*. or 


*. 

AT ION ♦ . NO 


*. 


♦. * * 

* 

*♦** 

* * 

♦ G2 ♦... 

* * • 

**** # 

FXPRNT X 

G1 *« *****c,2********** 

* *• * * 

ENO OF *. YES * ♦ 

TEXT .......... X*SCAN SORT CHAIN*. 

,* * * 


"5S2. 


, PARAMETER. 

• * 

*. . * 

* YES 

, **** 

# * * 
..X* E2 * 

* * 
**** 


.♦••••• ...X* SORT ENTRY 


NO *. 
YES .* BCD. ON * 
• •••*• CONDITION 

♦ ENTRY TYPEo * 
*.3t4, 5. * 

♦• • * 

♦ NO 


f xr*oio x 

**«**f 5 ********* 

SORT ENTRY 


!***************! 


PRINT SCO 

•n.°swr 


**** 

* * 

• G2 * 

* * 
**** 

X 

l NO 


.* ATTR *. NO 

v i iiy NC .. 


•••••*j3*********** 


LISTING 
. RFQD 

*. . * 
*, . • 

* YES 


.* 

.* ENO OF 
<*. SORT 
*. CHAIN 


REFNOV 


********* 


. s&Sma 0 


• ♦ 

» • ♦ 

* YES 


***** 
*GA ♦ 
* Al* 


***************** 


************* 
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Table ED. Phase ED, Initialization 


Statement or 

Operation Type 

‘ T 

|Main Processing 
j Routine 

... .i . .. 

T 

1 

1 

1 

Subroutines Used 

Sets up routines 
for phase EL 

in scratch core 

t 

| SETUP 

1 

. ± 

T 

| None 

1 

± _ 



•Table EDI. Phase ED Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

+■ 

| EVENT 
| TASK 
| CELL 
| BASED 
| AREA 
I POINTER 
I OFFSET 

L 


Function 


Routines for processing declared attributes. These set up 
information in the attribute collection area of scratch core, 
for reference by CDICEN, etc., in phase EL. 


Table EG. Phase EG Dictionary Initialization 


Statement or Operation Type 

| Main \ Processing 
| Routine 

1 

| 

1 

1 

Subroutines 

Used 

Hashes labels 

1 

| CAA1 

j 

i 

| CHASH, 

1 

CBCDL2 


PROCEDURE-BEGIN chain 

j CA7 

. | 

1 

| None 

I 



BEGIN 

1 

JCA8A 

-L 

T 

| None 

1 



PROCEDURE 

T 

ICAPROC 

1 ...... , 

t 

| CANATP, 

1 

CFORP 


ENTRY 

1 

j CA10 

-L ... 

I 

| CANATP, 

J. ... 

CFORP 


Formal parameters 

T 

| CFORP 

1 ... 

T 

| CHASH, 

i 

CBCDL2 


Attribute list 

I 

jCANATP 

1 

r 

| CAPRE1 , 

1 

CATCHA, CATBIT 

, CATPIC 

Creates entry type 2 entries for 
labels 

I 

| CTYPBL 

1 

T 

| ENT2F, 

1 

CDEFAT 
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•Table EG1 . Phase EG Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


l~ 




CAA1 

CANATP 

CAPROC 

CAPRE1 

CATBIT 

CATCHA 

CATPIC 

CA6 

CA8A 

CA10 

CBCDL2 

C DEFAT 

CFORP 

CHASH 

CTYPBL 

ENT2F 

TYPW 

OPTN1 (EF) 
OPTN2 (EF) 
OPTN3 (EF) 
ATTRBT (EF) 


Scans label table and hashes labels. 

Processes attribute list. 

Processes PROCEDURE statements. 

Processes precision data. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes PICTURE attribute. 

Scans the PROCEDURE-BEGIN chain for the relevant statements. 
Processes BEGIN statements. 

Processes ENTRY statements. 

Traverses the hash chain looking for entries with the same BCD as 
that just found. 

Completes data byte for entry type 2 entries by default rules. 
Processes formal parameter lists. 

Obtains an address in the hash table for an identifier. 

Creates entry type 2 entries for labels. 

Creates or copies second file statements. 

Scans ENTRY chain. 

Checks containing block options, for inheritance. 

Processes procedure options. 

Performs post processing, makes STATIC DSA decisions. 

Processes POINTER, OFFSET, and AREA attributes. 
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i Table El. Phase El Dictionary Declare Pass One 

r t* 


Statement or Operation 


Main Processing 
Routine 


Subroutines Used 


Scans DECLARE statement 

jcCGSO 

1 

| None 

-L 

Scans text 


T 

| CCGS2 

1 

| None 

. 4 

Processes structure 

level 

— T 

| CCGSCM 

t 

1 

| None 

Factored attribute, 
parenthesis 

left 

T 

ICCFLP 

1 

.. I 

| .. . . _. ... . .. . .. .... ...... 

| CFPMCR 

1 

.. 4 ... . 

Factored attribute, 
parenthesis 

right 

1 

| CCFRP 

1 

1 

T 

| None 

1 

l . 

Data following DEFINED attribute 

■ 1 

| CCDEF 

-1 - - .. 

1 

| NEWBLK , CTXTRM 

_L __ . .. . 

POSITION 


t 

| POSIT 

_ 4 

1 

| None 

CHARACTER, BIT 


t 

|CHABIT 

4 

1 ■ _ 

| CTXTRM 

1 ... . 

PICTURE 


|CATPIC 

4_ 

I 

| None 

4. 

USES, SETS 


1 

(SETS 

4. 

T 

| None 

4. 

LIKE 


1 

| LIKE 

. 4_ 

| None 

4. ... 

KEY 


1 

j KEYED 

1 

| None 

.j. 

Dimension 


| CDDIMS 

i 

| CTXTRM, AST, TOMENE , ERRORS 

1 . . .. ...... 

Precision 


+ 

| CDPREC 

1 . _ 

| ERRNEG, SCLBIG 

4_ ... . 

INITIAL 


T 

| EJINIT 

4 . 

T 

ICECON, EHINIT 

4. . .. 

INITIAL CALL 


1 

| INCALL 

1 . _ _ _ __ 

| CTXTRM 

... 4. . 

OFFSET 


T 

| OFFSET 

1 

| CTXTRM 

.j. ...... 

BASED 


T 

j BASED 

i 

| PTVEXP 

AREA 


T 

| AREA 

t — 

j CTXTRM 


i 
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r t- 

j Routine/Subroutine | 


Table Ell. Phase El Routine/Subroutine Directory 

Function 

Processes AREA atrributes. 

Deals with the case of* dimension bounds mixed with non -* bounds. 

Entry point in OFFSET routine, at which second file statement is 
made . 

Processes PICTURE attributes. 

Processes data following DEFINED attribute. 

Processes factored attributes (left parenthesis). 

Processes factored attributes (right parenthesis). 

Processes structure level. 

Attribute routine selector. 

Scans DECLARE chain. 

Scans text. 

Scans source text. 

Processes dimension attributes. 

Processes precision attributes. 

Makes a dictionary entry for a constant unless one has already been 
made. Returns the dictionary reference of the constant entry. 

Obtains more storage for the factored attribute table. 

Processes CHARACTER and EIT attributes. 

Detects end of DECLARE chain. 

Tests for space in current text block and obtains new block if nec- 
essary . 

Processes the INITIAL attribute except for the initialization of 
label variables and INITIAL CALL. 

Processes INITIAL attribute and LABEL with a label-constant list. 

Deals with the case of a negative precision specification. 

Deals with the case of lower dimension bound declared greater then 
the upper bound. 


j AREA 


| 

| AST 



| BASED 

(EH) 


| CATPIC 



| CCDEF 



| CCFLP 



| CCFRP 



| CCGSCM 



| CCGSAT 



| CCGSE 



| CCGSOO 



| CCGS2 



| CDDIMS 
ICDPREC 

(EJ) 

(EJ) 


|CECON 

(EH) 


| CFPMCR 



jCHABIT 



| CSGSOO 



| CTXTRM 



| EHINIT 

(EH) 


| EJINIT 

(EJ) 


| ERRNEG 



| ERRORB 



L 


i 
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Table Ell. Phase El Routine/Subroutine Directory (cont'd) 


Routine/Subroutine j 

+ . 


Function 


GENTRY 
INCALL (EJ) 
IVROOM (EH) 

IVPUTL (EH) 

IVPUTC (EH) 
IVPUTO (EH) 

KEYED 
LIKE 
NEWBLK 
OFFSET (EH) 
POSIT 

PTVEXP (EH) 

SCLBIG 

SECON 

SETS 

TOMENE 

L 


Keeps a count of parentheses in GENERIC and ENTRY processing. 
Processes INITIAL v CALL attributes. 

Checks if there is space in scratch storage for another entry. If 
not, it makes a dictionary entry and chains it to the previous one 
or to the C8 in text as required. 

Places a dictionary reference in the 'initial list.' for a label 
constant. If the constant is not known, a dummy reference is 
inserted . 

Places a dictionary reference in the 'initial list' for a constant. 

Places the dictionary reference of zero in the 'initial list' for a 
negative or imaginary replication factor. 

Processes KEY attributes. 

Processes LIKE attributes. 

Obtains new text block. 

Processes OFFSET attributes. 

Processes POSITION attributes. 

Entry point in OFFSET routine, at which secondfile statement is 
made . 

Deals with the case when the scale factor in a precision specifi- 
cation for fixed-point data is declared too large. 

Creates a dictionary entry for a constant provided the appropriate 
entry has not been already made. 

Processes USES and SETS attributes. 

Deals with the case when the number of dimensions declared is great- 
er than 32. 
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1 


Table ELI. Phase EL Routine/Subroutine Directory 

r T 

| Routine/Subroutine | 




I 


Function 




| ATLSCN 


| Scans the 

1 

list of attributes following the identifier. 


| BCD I SB 


1 

|Checks for multiple declarations , etc. 

1 


| BCDPR 


1 

| Processes 

1 

BCD of identifier. 


| C DAT PR 

(EK) 

1 

| Attribute 

1 

controlling routine. 


| CD AT 40 

(EK) 

1 

| Processes 

1 

DECIMAL attribute. 


| CDAT41 

(EK) 

1 

| Processes 

1 

BINARY attribute. 


| CD AT 4 2 

(EK) 

1 

| Processes 

i 

FLOAT attribute. 


| CDAT43 

(EK) 

1 

| Processes 

• 

FIXED attribute. 


| CDAT44 

(EK) 

1 

| Processes 

i 

REAL attribute. 


| CDAT45 

(EK) 

1 

| Processes 

i 

COMPLEX attribute. 


| CDAT46 

(EK) 

I 

| Processes 

i 

precision attributes. 


| CDAT4 8 

(EK) 

i 

| Processes 

i 

VARYING attribute. 


| CDAT49 

(EK) 

I 

| Processes 

i 

PICTURE attribute. 


| CDAT4A 

(EK) 

1 

| Processes 

BIT attribute. 


| CDAT4B 

(EK) 

1 

| Processes 

i 

CHARACTER attribute. 


1 CDAT4C 

(EK) 

1 

j Processes 

i 

FIXED DIMENSIONS attribute. 


| CDAT4D 

(EK) 

| Processes 

LABEL attribute. 


| CDAT4F 

(EK) 

1 

| Processes 

i 

ADJUSTABLE DIMENSIONS attribute. 


| C DAT 5 6 

(EK) 

1 

| Processes 

1 

USES attribute. 


| CDAT57 

(EK) 

1 

| Processes 

I 

SETS attribute. 


| CDAT58 

(EK) 

1 

| Processes 

i 

ENTRY attribute. 


| CDAT59 

(EK) 

1 

| Processes 

i 

GENERIC attribute. 


| CDAT5A 

(EK) 

1 

| Processes 

i 

BUILT-IN attribute. 


J C DAT 60 

(EK) 

I 

| Processes 

i 

EXTERNAL attribute. 


| CDAT61 

(EK) 

1 

| Processes 

i 

INTERNAL attribute. 


| CD AT 6 2 

(EK) 

| Processes 

i 

AUTOMATIC attribute. 


| CD AT 6 3 

(EK) 

1 

| Processes 

1 

STATIC attribute. 


| CDAT6 4 

(EK) 

1 

| Processes 

i 

CONTROLLED attribute. 


| CD AT 6 9 

(EK) 

1 

| Processes 

i 

INITIAL attribute. 


| CDAT6A 

(EK) 

1 

| Processes 

LIKE attribute. 



L JL J 
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Table ELI. Phase EL Routine/Subroutine Directory (cont'd) 

Function 


r t* 

| Routine/Subroutine | 






CDAT6B (EK) 
CDAT6C (EK) 
CDAT6D (EK) 
CDAT6E (EK) 
CDAT88 (EK) 
CDCLSC 
CDFATT (EM) 
CDFLT (EM) 
CDICEN (EM) 
CGENSC (EM) 
CHASH (EM) 
DCID1 
DCIDPR 
ECHSKP (EK) 
IMPATT (EM) 
INTLZE 
POSTPR 
SCAN4 (EM) 
SELMSK 
STRPR 
TEMSCN 


Processes DEFINED ATTRIBUTE. 

Processes ALIGNED attributes. 

Processes PACKED attribute. 

Processes PACKED (NONSTRING) attribute. 

Processes POS attribute. 

Scans each item of DECLARE statement. 

Applies factored attributes. 

Applies default attributes. 

Constructs dictionary entry. 

Performs phase initialization and scans chain of DECLARE statements. 
Hashes BCD of identifier. 

Main scan routine. 

Processes factor brackets and level numbers. 

Initializes and passes control to Module EM. 

Applies implicit attributes. 

Performs initialization for each identifier declared. 

Post-processor. 

Scans chain of DECLARE statements. 

Selects correct test mask to be initialized. 

Processes inheriting of dimensions in structures. 

Scans anead for next level number. 
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Table EP. Phase EP Dictionary Entry III and Call 

r 


T T 

Main Processing 
Routine 

+- 


Statement or Operation Type 


Subroutines Used 


Scans for PROCEDURE entries type 1 


ENTRY3 


None 


+- 


Follows chain of ENTRY statement 
entry type 1 entries from a PROCE- 
DURE entry type 1 


EPL40 


None 


+ - 


Examines all labels belonging to an 
entry type 1, constructing an entry 
type 3, if necessary 


LBPRCC 


None 


+- 


Follows CALL chain in text making 
dictionary entries for entry points 


EPL290 


None 




Examines the first character of an 
identifier and sets a flag indicat- 
ing the range in which it lies 


CDIMAT 


None 


4 


Applies default rules 


CDFLT 


None 


4 - 


Given an identifier calculates its 
offset in the hash table 


CHASH 


None 


4 


4 


Constructs a dictionary entry 


CDICEN 


None 


4 


4 


Sets address slot to zero or the 
end of the dictionary 


FNDEND 


None 


Constructs list of numbers of known 
blocks 


BLDST2 


None 


4 

| None 


| Built in function name 

L 


| SCANBF 

.X 
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Table EP1. Phase EP Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


j BLDST2 

j Constructs list of numbers of known blocks. 

I 


| CDICEN 

1 

(Constructs dictionary entry. 


| CDIMAT 

1 

| Sets flag for default routine. 

1 


| CDFLT 

1 

|Applies default rules. 


|CHASH 

1 

(Calculates offset in hash table for given BCD. 


| ENTRY3 

1 

| Scans ENTRY chain for PROCEDURE statements. 

1 


| EPL20 

1 

(First entry in entry type 1 chain. 

i 


| EPL4 0 

1 

| Scans ENTRY chain for ENTRY statements type 1. 

i 


| EPL75 

1 

(Return point from LBPROC routine. 

i 


| EPL100 

1 

(Processes new entry label. 


1 EPL29 0 

1 

(Scans CALL chain. 


| EPL340 

1 

(Searches built-in function table for BCD of identifier. 


| EPL360 

1 

| Blanks out BCD in text. 

| 


| EPL6 00 

1 

| Scans the CALL chain. 


| FNDEND 

|Sets address slot for label. 

1 


| LBPROC 

1 

(Processes labels of PROCEDURE or ENTRY statements. 

i 


| PHSINT 

1 

(Initialization of phase. 


| PHSMRK 

1 

|Marks later modules as 'wanted' or 'not wanted'. 


| SCANBF 

1 

(Checks for built-in function name. 
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Table EW. Phase EW Dictionary LIKE 


Statement or Operation Type 

T 

|Main Processing 
| Routine 

-I- 

T “ 

| 

1 

4 . 

Subroutines Used 

Scans LIKE chain 

1 

| EWBEGN 

_L 

1 

| EWCOPY, 

.... . 

EWELDM, EWINCH, EWONDM 

Updates hash chain for new entry 

| EWHSCN 
-1- 

T 

| None 

_L _ . 


Calculates start of structure data 
from start of variable information 

1 - 

| EW'VART 

1 

4_ 

T 

| None 

i 

4 


Changes error entry to base element 

T 

| EWCHEN 

-1 

1 

| None 


Copies dimension table entry and 
second file statement 

1 • • “ ' ' 

| EW2FNT 

1 

I 

1 

| EWNWBK 

1 

X 



Table EWl. Phase EW Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 


Function 


h 


4 - 


CESCN 

EWBEGN 

EWCHEN 

EWCOPY 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN (EX) 

E WINCH 

EWNOLK 

EWNWBK 

EWONDM 

EWORDM 

EWSTRT 

EW2FNT 

L 


Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base element. 

Copies dictionary entry into scratch storage. 

Copies entry into scratch storage with dimension data removed. 

Tests whether the likened structure is dimensioned. 

Handles transfer of control to next phase. 

Processes erroneously "likened" major structure. 

Updates hash chain for new entry. 

Completes entry copy and places it in dictionary. 

Tests whether original structure is dimensioned. 

Obtains new dictionary block and terminates current one in use. 
Copies entry into scratch storage, inserting dimension information. 
Processes dimension information in original structure. 

Tests validity of likened structure. 

Copies second file statement and associated dictionary reference. 
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•Table EY. Phase EY Dictionary ALLOCATE 

r 


T T 

|Main Processing 
j Routine 

+ - 


Statement or Operation Type 


Subroutines Used 


Scans text for explicitly pointer- j IEMEX 
qualified based variables j 

[ f 


EY14 


+ ■ 


Copies dictionary entries for |EY14 

explicitly qualified based varia- | 

bles | 

j- +- 


HASH, ATPRCC , DICBLD , STRCPY 


+ ■ 


Second file pointers. Scans ALLO- | IEMEY 
CATE statements 


ATPROC , DICBLD, HASH, STRCPY 


4 - 


+- 


Completes copied dictionary entry | ATPROC with 
for an allocated item j second entry 

j point ATPROD 


MOVEST 


4 - 


+■ 


Controls ATPROC and ATPRCD routines | STRCPY 
for each member of a structure ! 


ATPROC, ATPROD 


•Table EY1 . Phase EY Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 

!■- 


Function 


ATPROC /ATPROD (EZ) 

DICBLD 

EY16 

EY17 

EY2 1 

HASH 

IEMEX 

EY1 4 

IEMEY 

MOVEST (EZ) 

STRCPY 


Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 

Collects attribute given for an identifier and copies its dictionary 
entry . 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans text for explicitly pointer-qualified variables. 

Copies dictionary entries for explicitly qualified based variables. 
Scans second file, reverses pointers. Scans ALLOCATE statements. 
Copies second file statement and associated dictionary entry. 
Controls ATPROC and ATPROD for each member of structure. 
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Table FA. Phase FA Dictionary Context 


r T 

| |Main Processin 

| Statement or Operation Type j Routine 

l ...... j 

T “ 1 

g 1 1 

( Subroutines Used j 

1 I 

r r 

| Scans text |CE30 

L .... . ... . .1 _ 

T 1 

|CENDTS, CETRAN ( 

1 1 

r T 

| Reorders subscripts; makes die- |CEID 

| tionary entry for file and event j 

(variables j 

l _.. . i 

T 1 

| CESCN j 

1 1 

1 1 

i 1 

r j 

(Identifies keywords (CEKYWD 

1 1 

T 1 

( CEKEND, CEKEOE , CEKEOP, CEKON, j 

| CEKPRC , CEKSND | 

r 1 

| Scans dictionary | CESCN 

1 1 

r 1 

| CESTUC , CEYES, CFPDER , CFPDR2 , | 
(CHASH, CE3XX j 
i .... i 

r r 

| Makes dictionary entry for varia- (CFPDR2 
j bles | 

l . r 

T 1 

(CDFLT, CDICEN, CDIMAT, CEONCK | 

1 1 

| _ _ 1 

1 1 

(Scans dictionary entry for con- j CECON 

| stants and makes new entry, if | 

| necessary. j 

L. . . .I. ... 

1 ■ ' -| 

(CHASH | 

1 1 

1 1 
-1 1 

1 1 

| Scans PICTURE chain entry and makes |CEPICT 
j new entry, if necessary. j 

1 — _ _ X 

T 1 

( None | 

1 1 

x _ _ _ J 
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Table FA1. Phase FA Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 




CDFLT 

CDICEN 

CDIMAT 

CEBNK 

CECON (FB) 

CEDWAX 

CEID 

CEINT 

CEISUB 

CEKCEN 

CEKDCL 

CEKEND 

CEKEOB 

CEKEOP 

CEKEY 

CEKIDO 

CEKON 

CEKPFR 

CEKPRC 

CEKSN 

CEKSND 

CEKYWD 

CELP 

CENDTS 

CEONCK 

CEPFDR 

CEPICT (FB) 

CERP 

CESCN 

CESMCL 

CESTUC 


Determines default attributes for identifier. | 

I 

Constructs default dictionary entry for identifier. | 

I 

Determines default scale for identifier. | 

I 

Transfer point for zero or blank. | 

I 

Scans dictionary entry for constants. | 

I 

Subscript prime text marker. | 

I 

Reorders subscripts and makes dictionary entries for files and event | 
variables. j 

I 

Transfer point for constant routine. | 

I 

Transfer point for iSUB. | 

I 

Transfer point for CALL to get over chain. | 

I 

Removes SN from DECLARE statements. | 

I 

Processes END keyword. | 

I 

Processes end-of-block marker. J 

Handles end-of-program marker, or start of second file. j 

I 

Transfer point for keyword. || 

II 

Transfer point for iterative DO. || 

II 

Processes ON keyword. j 

II 

Transfer point for picture format item. | 

II 

Processes PROCEDURE keyword. | 

I 

Moves SN, etc., to output stream. j 

Processes start of second file statement. j 

l! 

Identifies keywords. | 

I 

Transfer point for left parenthesis. j 

I 

End of text block in output file routine. | 

I 

Makes entry for programmer-named ON condition. | 

I 

Makes dictionary entry for variables. | 

I 

Scans picture chain entry. | 

I 

Transfer point for right parenthesis. | 

I 

Scans dictionary. | 

I 

Handles semicolon. | 

I 

Points at next entry in structure chain. | 
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Table FA1. Phase FA Routine/Subroutine Directory (ccnt'd) 

Function 


I" T* 

Routine/Subroutine | 


■+- 


CETRAN 

CEYES 

CE2L 

CE30 

CE31 

CE32 

CE300 

CE3XX 

CFPDER (FB) 
CFPDR2 (FB) 
CHASH 
CHASHC 
IEMFA 


Translates keyword into transfer instruction. 
Compares structure levels. 

Transfer point for second level marker. 

Controlling scan of text. 

Tests for end of block. 

Moves one byte to output stream. 

Switches to appropriate routine. 

Compares identifier in text with entry in dictionary, 
Makes dictionary entry for ordinary identifier. 

Makes dictionary for formal parameter. 

Hashes identifier. 

Hashes constant. 

Initializes phase. 


Table FE. Phase FE Dictionary BCD to Dictionary Reference 


Statement or Operation Type 

T 

(Main Processing 
j Routine 

4 

T 

1 

| Subroutines 

r 

Used 

Scans text 

1 

| CE30 

4_ . 

T 

(CENDTS, CETRAN 

4_ 



Scans dictionary 

1 - 

| CESCN 

1 

4_ 

1 ■ - - _ 

| CESTUC , CEYES, 
j CHASH, CE3XX 

4 . 

CFPDER, 

CFPDR2 , 

Checks for array, function, or 
pseudo-variable if left parenthesis 
is found 

1 

| CELP 

1 

1 

| - 

1 

| CEFNCT 

i 

i 

i 



Tests for end of text block 

ICENDTS 

j 

i 

|CEKEND, CEKIDO , 

4 . 

CEKPRC 


Identifies keywords 

| CEKYWD 

4 

1 ' ■ 

|CEKEOE, CEKEOP 

4_ 



Makes dictionary entry 

| None 

T 

1 CDFLT , CDICEN, 

CDIMAT 
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Table FE1. Phase FE Routine/Subroutine Directory 


r T- 

j Routine/Subroutine | 


Function 


■+- 


CDFLT 

CDICEN 

CDIMAT 

CEFNCT 

CEKEND 

CEKEOB 

CEKEOP 

CEKIDO 

CEKPRC 

CEKYWD 

CELP 

CENDTS 

CESCN 

CESTUC 

CETRAN 

CEYES 

CE30 

CE3XX 

CFDICN (FF) 
CFPDER 
CFPDR2 
CHASH 


Applies default rules. 

Constructs dictionary entry. 

Sets flag for default routine. 

Tests validity of function reference in text. 

Processes END keyword. 

Processes end-of-block marker. 

Processes end-of -program marker, or start of second file. 

Processes iterative DO keyword. 

Processes PROCEDURE keyword. 

Identifies keyword. 

Checks for array, function, or pseudo-variable if left parenthesis 
is found. 

Tests for end of text block in output file. 

Scans dictionary. 

Points at next entry in structure chain. 

Translates keyword into transfer instruction 
Compares structure levels. 

Controlling scan of text. 

Compares identifier in text with dictionary entry. 

Makes dictionary entry. 

Makes dictionary entry for statement with ordinary identifiers. 
Makes dictionary entry for formal parameters. 

Calculates offset in hash table for qiven BCD. 


Table FI. Phase FI Dictionary Checking 


Statement or Operation Type 

T 

|Main Processing 
| Routine 

1 

T 

| 

1 

_| 

Subroutines Used 

j 

Scans text 

1 

| CESTRT 

1 

| CEKEYW 

1 


1 

Identifies keywords 

T ' ' 

| CEKEYW 

1 

1 

| CEKEOB, 

X 

CEKEOP, CEKIDO , CEKSN 

.j 

j 

Checks GOTO statement references 

1 

|CEGOTO 

X 

T 

| None 

X 


1 

j 

Converts GOTO to GOOB, if necessary 

t 

|CEGOB 

i 

T 

| None 

x _ ... 


1 

j 

Checks file references 

1 

| CEFILE 

X 

1 

| None 

4- 


1 

j 

T 

Checks data list items for validity | CEDTCK 

X 

T 

| None 

X 


1 

J 
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Table FI1. Phase FI Routine/Subroutine Directory 


f — T — 

| Routine/Subroutine | Function 


I- 

| CECMBK 

| CEDDOL 

| CEDOND 

|CEDREF 

| CEDTCK 

ICEFILE 

| CEFNMK 

| CEGOB 

| CEGOTO 

| CEISUB 

| CEJUMP 

| CEKEND 

| CEKEOB 

| CEKEOP 

| CEKEYW 

ICEKIDO 

|CEKON 

1 

| CEKSN 

| CELRCT/CERPCT 
| CEOOPS 
| CEPRBG 
| CERFMT 
| CESMCL 
CESTRT 


+ 

| Tests value of previous second level marker. 

I 

j Processes function names used as control variables for DO groups 

I 

(Processes end of iterative DO groups. 

I 

| Tests whether dictionary reference needs to be checked. 

I 

| Checks data list items for validity. 

I 

|Checks file references. 

I 

(Processes function markers. 

I 

(Converts GOTO to GOOB, if necessary. 

I 

(Checks GOTO statement references. 

I 

(Processes iSUBs. 

I 

(Bumps scan pointer over dictionary reference. 

I 

| Processes END statements. 

I 

| Processes end-of-block marker. 

I 

(Processes end-of -program marker. 

I 

(Identifies keywords. 

I 

(Processes iterative DO keyword. 

I 

(Processes ON statements. 

I 

(Processes statement number. 

I 

| Process left and right parentheses. 

I 

(Checks validity of keywords in the text. 

I 

(Processes PROCEDURE and BEGIN statements. 

I 

(Processes remote format references. 

I 

(Processes semicolons. 

I 

(Controlling scan of text. 


I 

A 
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Table FK. Phase FK Dictionary Attribute 


Statement or Operation Type 

“ T -- - T 

(Main Processing! 
j Routine | 
x x 

Subroutines Used 

i 

j 

Scans attributes area for SETS 
lists 

| F01A 

1 

-j. 

T 

| None 

1 

4- 



Scans SETS list 

j F02 

X 

T 

| None 

X 



Processes constants 

1 

(CONPRO 
1 

T 

| None 

. j 



Processes identifiers 

| CESCN 

1 — 

T 

| CESTUC , 

X 

CE3XX , CHASH 

j 


Table FK1 . Phase FK Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


CEIDLP 

j Scans qualified name. 

| 


CENQUL 

1 

(Processes unqualified name. 

i 


CESCN 

1 

(Processes identifier. 

i 


CESTUC 

1 

| Finds address of next structure 

i 

in chain. 

CE3XX 

1 

(Compares current BCD with BCD in 

i 

hash chain. 

CHASH 

1 

(Calculates offset in hash table 

| 

for given BCD. 

CMPERR 

1 

(Provides terminal error action. 

1 


CONPA 

i 

| Inserts constant in ordered stack. 

\ 

CONPRO 

(Processes constants. 


ENDFO 

1 

(Releases control. 


FOERR2 

1 

(Diagnoses constant greater than 

i 

255. 

FOl A 

1 

| Scans attribute tidy-up area. 

i 


F02 

1 

(Scans SETS list. 

i 


F04 

1 

(Completes SETS dictionary entry. 

1 


GETSCR 

1 

(Obtains scratch storage. 
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Table FO. Phase FO Dictionary ON 

r 


T T 

Main Processing 
Routine 

+• 


Statement or Operation Type 


Subroutines Used 


Scans input text for ON, SIGNAL, 
and REVERT statements 


FKMVIT 


BEFTRN, CENDTS, QP 


|. 

Moves second file from input text 
block to output text block 


F2 


CENLTS, BEFTRN 


•+- 


Makes dictionary entries for ON- 
conditions found in ON, SIGNAL, and 
REVERT statements 


FKDCEN 


LABCD 


+ - 


Examines BCD of file entries ref- 
erenced in ON, SIGNAL, and REVERT 
statements; scans previous entries 
for ON conditions 

H- 


MVSIG 


CENDTS 


4 - 


+- 


Processes CHECK and NOCHECK list. 

I- +- 


BEFCHL 


CENDTS, LABCD 


Creates dictionary entries for 
condition prefixes 


NOMOVE 


QP 


Table F01. Phase FO Routine/Subroutine Directory 


r T‘ 

| Routine/Subroutine | 

(- 


Function 


-+- 


BEFCHL 

BEFTRN 

CENDTS 

FKDCEN 

FKMVIT 
FKNOCK 
FKPROC 
FP010 (FP) 

F2 

LABCD 

MVSIG 

NOMOVE (FP) 

Q3 

QP 

R8 


Processes CHECK and NOCHECK list. 

Replaces statements containing dummy dictionary references by error 
statements, and generates error message. 

Requests a new text block for output. 

Makes dictionary entries for ON conditions found in ON, SIGNAL, and 
REVERT statements. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Processes CHECK and NOCHECK lists. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Chains initial label statements and makes second file dictionary 
entries for each label array initialized in this way. 

Moves second file from input text block to output text block. 

Creates a dictionary entry for each label constant and each entry 
label mentioned in a CHECK list. 

Examines BCD of file entries referenced in ON, SIGNAL, and REVERT 
statements; scans previous entries for ON conditions. 

Creates dictionary entry for condition prefix. 

Processes condition prefixes changed in current block. 

Determines which condition prefixes require dictionary entries. 

Moves statement to output buffer. 
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Table FQ. Phase FQ Dictionary Picture Processor 

r t* 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Controls scan of PICTURE chain; 
initializes 

j CYBR 3 

1 

.4. 

| CYEK , CYFIND, CYTABL 

1 

4 - ... m 

Picture 

character 9 

T 

|CYNINE 

T 

j None 

_... 1 . .... .. - 

Picture 

characters S, $, +, 

| CYSDPM 
.4. . _ 

1 

| None 

4 _ 

Picture 

character V 

1 

| CYV 
• + 

T 

| None 

j _ , 

Picture 

character E 

| CYE 

4 - 

| CYC 21 

4. ... _ . . 

Picture 

character K 

1 

| C YK 

- 4 - - _ 

T 

| CYC 21 

4. .... . _ 

Picture 

characters C,R,D,B. 

1 

|CYCRDB 

4. 

T 

| None 

4 _ ._ ^ 

Picture 

characters 1 , 2,3 

1 - 

|CYOTT 

..j. _ 

T 

| None 

4. . . ... . ^ 

Picture 

character P 

| CYP 

.j. 

T 

| None 

4. ... 

Picture 

character Z 

| CYZ 

4 _ 

T 

| None 

4. . .. .. . 

Picture 

character * 

1 ■ 

| CYAST 

T 

| None 

4. ... . „ . . , 

Picture 

character Y 

| CYY 

4. _ 

r 

| None 

4. _ 

Picture 

character G 

1 

| CYG 

4 - 

| None 

4. ^ , ... . 

Picture 

characters 6, 7 , 8, H 

1 ■ 

|CYSSEH 

4 - 

T 

| None 

4. ._. ... .. .... ,, 

Picture 

character M 

1 

| CYSTM 

-L 

1 

| None 

4. ._ 

Picture 

character F 

1 

| CYF 

-j. 

1 

| None 

| 

Converts 

factor 

integer constants to scale 

| CYC 97 

1 

4 _ . ... 

| CYCONV 

1 

4. _ _ 

Calculates scale factor 

1 

| CYFNT 

1 _ — _ 

T 

| None 

1 


-H 

-H 

»H 

H 

■H 

-H 


-H 


■H 

I 

H 

I 

— -1 


-H 


H 




148 



Table FQ1. Phase .FQ Routine/Subroutine Directory 


r T - 

| Routine/Subroutine j 

j. 


Function 


CYAST 

CYBR2 

CYBR3 

CYCONV 

CYCPBS 

CYCRDB 

CYC21 

CYC97 

CYE 

CYEK 

CYENDD 

CYF 

CYFIND 
j CYFNT 

I 

CYG 

CYK 

CYNINE 

CYOTT 

CYP 

CYSDPM 

CYSS 

CYSSEH 

CYSTM 

CYTABL 

CYV 

CYY 

CYZ 


Processes picture character *. 

Identifies picture character. 

| Controlling scan of PICTURE chain. 

Converts integer constant to scale factor. 

Processes picture characters slash (/) , comma(,), point (.), and E. 
Processes picture characters CR, DB. 

Adjusts data to terminate picture before illegal character. 

Converts integer constant to scale factor. 

Processes picture character E. 

Completes entry for correct picture. 

Releases control at end of picture chain. 

Processes picture character F. 

Obtains code for next character in picture. 
iCalculates scale factor. 

Processes picture character G. 

Processes picture character K. 

Processes picture character 9. 

Processes picture characters 1,2,3. 

Processes picture character P. 

Processes picture characters S, $, +, -. 

Processes picture characters 6,7. 

Processes picture characters 8,H. 

Processes picture character M. 

Code table for picture characters. 

Processes picture character V. 

Processes picture character Y. 

Processes picture character Z. 
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Table FT. Phase FT Dictionary Scan 

r t- 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Scans 

second 

file 

j AC1 

j 

j None 

x . . . 

Scans 

dictionary 

i B1 

x . _ 

T 

1 None 

X _ ... ... ... . 

Data 

variables 

1 ~ 

| DATVAR 

1 

i 

j None 

1 

Event 

or label variables 

T 

| EVLABV 

i 

| None 

X 

Dimension 

attributes 

j F0 
.j. 

r 

| None 

X 

Scans 

AUTOMATIC chain 

j G2 

-1 — 

r 

| None 

X 

Scans 

STATIC 

chain 

| G3 

1 

| None 
-1- 

Scans 

CONTROLLED chain 

j GEl 

X 

r 

| None 

1 ..... ... 

Sets 

dope 

vector required bit 

1 - " 

1 P1A 

.j. _.. 

T 

| None 

4 - 

ENTRY 

type 

1 

entries 

i QA4 

T 

| None 
-1- 

ENTRY 

type 

2 

entries 

! QA3 

T 

| PROPIC 

4 _ _ __ 

ENTRY 

type 

3 

entries 

j QA2 

T 

| None 

4 _ 

ENTRY 

type 

4 

entries 

iox 

i 

T 

| None 

ENTRY 

type 

5 

and 6 entries 

ioAi 

X 

| PROPIC 

X 

Constants 



1 

| CONST 

| 

T 

| None 
1 ... 

Structures 



T 

| STRUCT 

T 

J AJDMRT, MKDMTB, MVTXT 
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Table FT1. Phase FT Routine/Subroutine Directory 


r T* 

| Routine/Subroutine | 

h 


Functicn 


AC1 

AC2 

AF3 

AJDMRT 

Bl 

BIA 

CONST 

DATVAR 

EVLABV 

FO 

FULIN 

GE1 
G 2 
G 3 

MKDMTB 

MVTXT 

PROPIC 

PlA 

QA1 

QA2 

QA3 

QA4 

QX 

STRUCT 

TRVECT 


Scans second file. 

Detects second file statement marker. 

Points relevant dictionary entry at statement. 

Modifies second file statements to initialize dope vectors for base 
elements, rather than for the containing structures. 

Scans dictionary. 

Initializes dictionary scan. 

Processes constants. 

Processes data variables. 

Processes event or label variables. 

Processes dimension attributes. 

Moves initial label statement to the second file, collecting togeth- 
er all statements for the same array. 

Scans CONTROLLED chain. 

Scans AUTOMATIC chain. 

Scans STATIC chain. 

Creates dimension tables. 

Moves text blocks. 

Extracts precision data from picture tables. 

Sets 'dope vector required' bit. 

Processes ENTRY type 5 and 6 entries. 

Processes ENTRY type 3 entries. 

Processes ENTRY type 2 entries. 

Processes ENTRY type 1 entries. 

Processes ENTRY type 4 entries. 

Processes structures. 

Transfer vector for appropriate chaining routine. 
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•Table FV. Phase FV Dictionary Second File Merge 


"T T 

(Main Processing 
j Routine 

4. 


Statement or Operation Type 


4 

Reverses second file pointers; |IEMFV 

scans text for block heading state- j 
ments ; allocates statements and j 

references to dynamically defined j 

data I 


Subroutines Used 


DATCPY, DEFMOV, DEFTST, F2M0VE, 
MOVE 


4 

Examines ADF references in second |DEFCOM 
file; completes defined item die- | 
tionary entry | 


None 




+• 


Detects dictionary references which | DEFTST 
refer to dynamically defined data | 


None 


+- 


Examines dictionary references and | DATCPY 
moves any associated second file j 
statements to the output string | 


F2M0VE, MOVE 


Inserts dictionary reference of | FVPTR 
pointer in associated based varia- j 
ble entry | 


None 


-+- 


+- 


Processes adjustable extents on 
based arrays 


FVADV 


None 


Processes adjustable lengths on 
based strings 


FVSDV 


None 
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•Table FV1. Phase FV Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

f 


Function 


DATCPY 

DEFCOM (FW) 

DEFMOV 

DEFTST 

FVO 
FV9 
FV1 0 
FV1 6 
FV1 8 
FV19 
FV 2 0 
FV3 4 
FVPTR 
FVADV 
FVSDV 
F 2 MOVE 
IEMFV 
MOVE 

L 


Moves second file statements associated with dictionary reference to 
output string. 

Examines ADF references in second file; completes defined item dic- 
tionary entry. 

Modifies text references to dynamically defined data. 

Detects dictionary references which refer to dynamically defined 
data . 

Scans second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

Processes PROCEDURE statements. 

Processes BEGIN statements. 

Scans AUTOMATIC chain. 

Inserts D.R. of pointer in associated based variable entrt. 
Processes adjustable extents on based array. 

Processes adjustable lengths on based strings. 

Moves second file statement to output string. 

Controlling scan of second file; invokes processing routines. 

Moves text from input string to output string. 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 


r 

1 

| Statement or Operation Type 

i 

T ~ T 

(Main Processing! 
j Routine j 

-L J. 

Subroutines Used 

r 

J Scans STATIC chain for all items 

I 

Ifxoooo 

j FXO 010 



r 

j Scans PROCEDURE-BEGIN chain 

i 

j FX0100 

f 

j FXO 010 , 
-1 

FX0101 , 

FX0105, FX0120 

r 

| Scans CONTROLLED chain for non- 
| parameter DECLARED, CONTROLLED 
(dictionary entries 

L 

| FX0170 

1 

1 

-L 

T 

| None 

i 

i 

i ■■ 



r t 

| Scans parameter list from PROCEDURE | FX0101 
jand ENTRY statements | 

j FX0010 

1 



r 

| Sorts BCD of variables and creates 
j entries in scratch text storage 

i 

j FXO 010 

1 

+ 

T 

| None 

1 

-j_ 



1 

| Scans circular chain of ENTRY 
j statement dictionary entries asso- 
ciated with a particular PROCEDURE 
| statement 

i 

i FX0105 

1 

1 

1 

+ _ 

| FX0101 

1 

1 

1 

.j. 



1 

| Scans AUTOMATIC chain associated 
(with particular PROCEDURE or BEGIN 
j block 

I ...... 

| FX0120 

1 

1 

| FXO 010 

1 

1 

- 1 - 



r - ” - - - 

(Prints heading line for tables 
(according to options specified 

1 

| FXHD 

1 

-L 

T 

| ATTNOV 

i 



1 

(Scans sorted chain of identifiers 

I __ ... . ... 

T 

| FXPRNT 

4- 

| FX0299 

f 



1 

(Determines attributes of a given 
(identifier if the ATR option is 
j specified 

l 

1 

| FX0299 

1 

1 

1 

| ATTMOV, 

| REFMOV 

1 

4 . . . _ 

FXBCD, 

FXDCLN, FXEND, 

r 

( Scans the chain of references for a 
(given identifier (if XREF is 
(specified) and prints them in 
j external decimal form 

l 

1 

| REFMOV 

1 

1 

1 

4 

T 

| FXDCLN 

1 

1 

1 

4 



r 

(Converts EBCDIC of particular 
| attribute to required external form 
(and moves it to print area 

t 

1 

| ATTMOV 

| 

1 

j. 

l 

| None 

1 

1 

4 



1 

| Prints BCD of identifier having 
(converted it from internal form to 
j external form 

i 

1 

| FXBCD 

1 

1 

T 

| None 

1 

1 

4 



r 

(Converts an internal binary number 
| to external decimal form and moves 
jit to print buffer 

L ... 

| FXDCLN 

i 

i 

+ 

T 

| None 

1 

1 

4 



r 

| Frees all scratch text storage and 
j releases control to next phase 

L 

| FXEND 

1 

X 

T 

| None 

1 

X 
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Table FX1 . Phase FX Routine/Subroutine Directory 


r T" 

Routine/Subroutine | 


Function 


ATTMOV (FY) 
FXBCD (FY) 

FXDCLN (FY) 

FXEND (FY) 

FXHD (FY) 

FXPRNT (FY) 

FX0000 

FX0010 

FX0030 

FX0100 

FX0101 

FX0105 

FX0120 

FX0170 

FX0250 

FX0299 

REFMOV (FY) 


Converts EBCDIC data to required form, moves data to print area. 

Moves identifier BCD to print area, determines options tc be print- 
ed. 

Converts binary number to external BCD, moves it to print area. 

Frees scratch storage, releases modules, releases control. 

Prints heading line for table according to options specified. 

Scans sorted chain of identifiers. 

Scans STATIC chain. 

Sorts BCD of variables and creates entry in text for each item. 

Tests for end of STATIC chain. 

Scans PROCEDURE-BEGIN chain. 

Scans parameter list from PROCEDURE and ENTRY statements. 

Scans circular chain of ENTRY statement dictionary entries associat- 
ed with a particular PROCEDURE statement. 

Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN 
block. 

Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED dic- 
tionary entries. 

Scans text, making chain of references to each dictioary entry. 

Determines attributes of a given identifier if the ATR option is 
specified. 

Moves the references to an identifier to the print buffer and 
prints . 
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:hart 04. Pretranslator logical Phase Flowchart 


***** 
*04 * 
* Bl* 


B 1 


*• 


*• 


FILE *. YES 
*. OR OPEN .♦..«. 
♦•CONSTANT •* 

♦ • • * 

♦• • ♦ 

♦ NO 


*«***B2 ********** 
♦OCBS GA* 

*- *- *-*-*-*-.*-* _* 
CREATE ♦ 

DCBS AND OCBS ♦ 
* * 
***************** 


, X* 


.♦STMNTS AND ♦. Y 
♦• 2ND LEVEL •♦. 
♦. MARKERS .♦ 


*****£ 2 ********** 

♦I/O MOD GB* 

-:_*_*_*_*_*_*_*_* 
MODIFY ♦ 

♦I/O PARAMETERS ♦ 
* * 
***************** 


,X* 


•♦ ANY ♦• 
►♦ FUNCTION * 
. REFERENCES 
*.nR OPT* I 


• X^ 


•****□ 2 ********** 

♦MAT CHI GK* 

*_*_*-*-*_*_*-*_* 
CHECK ♦ 

PARAMETER ♦ 

MATCHING ♦ 


.* ANY *. 

NO •♦ FUNCTION ♦. 
...♦. REFERENCES •* 


****«p 2 ********** 

* GO* 
*-*-*-*-*-*-*-*-* 

* PRE-PROCESSOR ♦. 

* FOR GP ♦ 

* * 
***************** 


*-.*-*-.*-*_*-*-*_* 

*; on c p*8aSe?Irs : 


ANY ♦. YES 
CHECK .♦..*• 
LISTS .♦ 


#****G2 ********** 

♦CHECK LIST GU* 
*_*-*-*.*-*_*_*_* 
(X* PROCEED CHECK * 

♦ CONDITION ♦ 

♦ STMNTS ♦ 

***************** 


► ♦ STRUCT *• YES 

> ASSIGNMENTS •*..♦. 
♦ OR E XPRF SS-* 

♦.IONS •♦ 


*****H2*** ******* 

♦STRUCTS HF* 

*_*_*_ *-*-*_*_*-* 


***************** 


JI 


♦• 


• * ARRAY ♦. YFS 
*. ASSIGNMENTS 
♦OR EXPRESS-* 

♦. IONS •* 

♦• • * 

♦ NO 


, X* 


*****J2********** 

* ARRAYS HK* 

*_*-*_*_*-*_*_♦_* 

PROCESS * 

* ARRAY * 

* ASSIGNMENTS * 
***************** 


• ♦ ♦• 
•* ANY * 

*• I SUB DEFINEO 
*• ITFMS •* 


***«*k2 ********** 
* I SUBS HP* 
*_*-*_*-*_*_*_*_* 


***************** 


***** 
*05 * 
* Al* 


***** 
*r 5 * 
* Al* 
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Chart 


Phase GA Overall Logic Diagram 


♦INITI ALIZATION * 


***************** 


* END OF *. VES 

*» STATIC CHAIN «.♦*»'•«••• 

*. .♦ X 

*. . * **♦*♦ 
*, .* *GB * 

* NO * Al* 

• * * 


♦****C1 ********** 


* GET NEXT * 

* ENTRY IN * 

* STATIC CHAIN * 

* * 
***************** 


*♦ FILE *. YES 
*, CONSTANT •*«••• 
*• I 8 » .* 


* CHECK ATTR IBS * 

* AND MAKE OPEN * 

* CONTROL BLOCK * 

* * 
***************** 


*****G1 ********** 

* MAKE DICT * 

* ENTRY AND * 

» * CHAIN FROM * 

* STATIC ENTRY * 

* * 
***************** 


ILUl'' X 

*****A3********** 

* FILENAME TO * 
♦SKELETON DCLCB * 
♦CHANGE SYSPR I NT* 

* TO IHESPRT * 

* * 
***************y* 


• ♦ *• 

NO o* ANY * 0 
ATTRIBUTES •* 

*„ •* 

♦« • * 

♦• • ♦ 

* YES 


IL»UiV X 

♦****C 3********** 


* CONTROL BLOC 


«****P3 ********** 

* MOVE OCB INTO * 

* APPROPRIATE * 


♦****E 3 ********** 

* * 

* GET ENVMNT * 

* STRING *# 

* i HAY BE NULL! * 

* * 
********** ******* 


o* COBOL IN 
J# X*o ENVMNT 
♦«• STRING 


*****F<; ********** 
* * 

♦SET COBOL FLAG * 
.X* ON IN ATTRIft * 

♦ ENTRY * 

* * 
***************** 


IMFENVt . 

I LOll 5 X 

*«***F 3 ********** 
* * 
♦CHECK AND PLACE* 

* tN SKCLETON * 

* OCLCB * 

* * 
*••«*********••*• 
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157 



:hart SB. Phase SB overall Logic Diagram 


***** 
*GB * 
* Al* 


***«*A1 ********** 

* * 

* INITIALIZE * 

* TEXT POINTERS * 

* LO AO IEMGJ * 

* * 
***************** 

**** 

* * 

* B1 * 

* * 

**** 

♦****B 1 ********** 

* * 

* * 

* SCAN TEXT ♦ . 

* * 

* * 
***************** 

X 

**** 

* * 
.X,* 01 * 

* * 
**** 


FORMAT ♦, NO 
STATEMENT . ♦. . . 
. *♦ 


AFORMT 

*»***C? ********** 

* FORLST * 

*-*-*-*-*-*-*-*-* 

► ..*♦ SCANS FORMAT * 

* LIST i SEE F3 ) * 

* * 
***************** 


C 3 ♦. 

• * *0 

3 «..* 

.♦. COBOL FILE 


* *c 

B4 *, 

, * *„ 

READ 

STATEMENT 

*o r *° 

* c t * 

* VFS 


C A *„ 

o * *„ 

n 

CO0OL FILE 


***** 01 ********** 
♦SCAN STATEMENT ♦ 

♦ SKIPPING OATA ♦ 
♦SPECIFICATIONS ♦ X. 

♦ TRANSMITTING ♦ 

♦ OTHER OPTIONS ♦ 
***************** 


„ * * # 
.♦ GFT OR i 
. PUT 
*• STATEMENT,, * 


**** 

* * 

, X* B1 * 
* * 

**** 


*****03********** 

♦ DELETE * 

*.*_*_*_*_*_*_*_* 

♦ DELETE * 

♦ STATEMENT ♦ 

♦ * 
***************** 


**** 

* * 

* ftl * 

* * 
• *** 


♦STRUCTURESIMAP) * 
♦ COPY INSERT * 

***************** 


Crjp.OL FILF 

*0 9 

*0 - ♦ 

♦ . «* 


*.*_*•*_*.*.*.*_* 
* COMPARE PL/I ♦ 
♦AND COBOL MAPS ♦ 
♦INSERT 0UY/SFLL* 
***************** 


***** p 1 ********** 
* * 

♦ RETURN TO ♦ 
<* SCAN FOR ♦ 

♦SKIPPED OPTIONS* 

* * 
***************** 


***** 
*GK ♦ 
* A3* 


LABI 78 

*****(52 ********** 
* FORLST * 

*- *- *- *- *- *-* -*-* 
► ••X* SCANS 


1ST 


DATA 
EDIT OR 
L 1ST 


**** 

* * 

► FI *X. 


► DOES 
IT CONTAIN 
I TOO 


**************** 

**** 

* > 

* G 3 ♦. Xi 

* * 

**** 

G3 


♦. • ♦ 
♦• •♦ 

YES 


****«H 3 ** ******** 
* * 

♦ OUTPUT BUY * 

♦ AND TEMP ♦ 

♦I TOO STATEMENTS* 

♦ ■ * 
***************** 


*****F 5* ********* 
* * 

♦ OUTPUT ANO ♦ 

* RETURN ♦ 

♦ I SEE C?1 ♦ 

* * 
***************** 


► RIGHT *r YES ,* END 

PARENTHESIS X*. OF FORMAT 

«* *. LISTS - 


*«***H5 ********** 

♦ UNSTACK ♦ 

♦ DICTIONARY ♦ 

♦ REFERENCE * 

♦ OF TEMP ♦ 

♦ * 
***************** 


NO .♦ END *. 
...♦.OF STATEMENT .♦ 
. ♦. .♦ 


**** # 

LLDOIT X 

****«J2 ********** 

♦ OUTPUT PRIOR * 

♦ TEXT AND END * 
♦SCAN TO THE >. * 

♦ REPLACE IT BY * 

♦ SFMI -COLON * 
***************** 


MKROOM 

*** **k 2 ♦♦♦♦ ****** 

♦ MAKE ROOM * 

♦ IN OUTPUT TF XT ♦ 

♦ AND INSFRT *. 

♦ END STATEMENT ♦ 

♦ * 
***************** 


:%arH 

*» F 01 


*, 

EFf *. NO 
NTHESIS 
LLOW „* 


***** J^* ********* 

* * 

♦ OUTPUT ♦ 

<: FORMAT^ I if EH S' 

* * 
***************** 


«****K3 ********* 

* STACK 

* DICTIONARY 

* REFERENCE 

* OF TFMP 

* 

**************** 


*****j 5* ********* 
* * 

♦ OUTPUT ANO ♦ 

<* SELL TFMP ♦ 

♦ STATEMENTS ♦ 

♦ * 
***************** 


**** 

* * 

* G3 * 

* * 
**** 
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:hart 3K. Phase 3K Overall Logic Diagram 


**«**A 3** ******** 
* * 

* INITIAL I 7 F * 

* TFXT PH INTERS * 

* ETC. * 

* * 
***************** 


**** . 

BASCAN X 

*****33********** 

* SCAN TEXT, * 

* NOTING * 

• X* BLOCK LEVEL ♦ 

* ANO COUNT * 

* * 
***************** 


+****C )********** 

* SET • BUILT- * 

* IN GENERIC* * 

* BIT IN *X 

* TEBYTr. * 

* * 
***************** 


YES . * PSFIJOO- 
VARIABLE 
*« * SUBSTR 1 


YES r* PSEUDO- 
VARIABLE 
*• MARKER • 
♦ •FOUND* * 
♦ • •♦ 

* NO 


♦ TE&vTE FOR * 
♦GENERIC AND/OR *Y* 

♦ BUILT-IN ♦ 

♦ FUNCTIONS ♦ 

***************** 


*****££♦ ♦*♦*♦♦*♦♦ 


. X*PUSH DOWN STACKS 


YES •♦ FUNCTION ♦. 
».«•♦. MARKFR •♦ 
♦. FOUND «* 


***************** 


«****£) ********** 


***************** 


♦PARAMFfER LIST * 

♦ AND SFTS LIST ♦ 
♦FOR NON-RUILT- * 

* IN FUNCTIONS * 

***************** 


3 G2* *° *• 

on^s *. 

! FOLLOW 
*. HARKFR .« 

♦• C * 


.♦ ITS *o NO 
DEL IM ITFR A 
♦n COMMA c* 


**«**f5 ********** 


***************** 


♦♦♦♦ . 

*GNOO X 

*%***GB ********** 

♦ CHECK ARGNO ♦ 

♦ AGAINST OICT ♦ 
ENTRY Of 


*****M?*** ******* 

♦ ARGNO - l ♦ 

♦ OUTPUT PRIOR * 

♦ TFXT, TFBYTF , * 

♦ STMT NUMBER, * 
♦LEVFL AND COUNT ♦ 
***************** 


BALOOP X 

**«**J ?********** 
♦OUTPUT ARGUMENT* 

♦ MARKER. OICT ♦ 

♦ RFF OF PARA * 

♦ METER. AND ♦ 
♦SETS CODE BYTE ♦ 
***************** 


BARGEN 

*«***Kj ********** 

♦OUTPUT WARNING * 

* MESSAGE SKIP * 

* TO END OF *X 

* ARGUMENT ♦ 

* * 
***************** 


BARFSC *♦« 

K2 ♦. 

.♦IS ARG ♦• 

YES o*A FUNCTION ♦* NO 
>•••♦• WITH NO •♦.>#• 
♦„ ARGUMENTS, * 


♦SET STOP MARKER* 

* AT END OF * 
X* ARGUMFNT IN ♦« 

* SOURCE TFXT * 

* * 
***************** 


*** **K4 ********** 
♦ * 

♦ (SCAN FROM * 
(* START OF 

♦ ARGUMENT) * 
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:hart 3P. Phase 3P Overall Logic Diagram 


**♦* 

* * 

* H3 * 

* * 
♦ *♦♦ 


EXSCAN, HI .♦. 


***** 
*GP * 
* Bl* 


* PARAMETER ♦. YES 
DESCRIPTION 
A. ? .♦ 


A5 ♦ . 

• * * 
t* IS 
B X*. ARGUMENT 
' ♦ . SCALAR 
*• « * 
*. . ♦ 

* ND 


ES1.ES2 X 

i ********** 

* * 

* SCAN TEXT * 
..XJ FOR fJS?UMENT JX. 

* * 
***************** 


EX36 • M24 

*****32 ********** 

* CREATE A * 

* CHAMELEON * 

AGGREGATE *X* 

* DUMMY * 


***************** 


• +. 

*4 

, * *4 

IS ♦. 

ARGUMENT .< 
, SCALAR .* 

*. , * 

*. . * 

* YFS 


Nil • » AND *• 

ARC AGGREGATE.. 


* HI * 

* 4 
**** 


***** 
♦GU * 
* Al* 


**** 

* * 

I- HI * 
* * 

**** 


**** 

* * 

♦ J3 ♦ 

* * 
♦ ♦♦♦ 


YES .♦ IS *. 

X,.*. ARGUMENT . 
♦.CONSTANT .* 


.♦ IS ♦. YES 
, ARGUMENT 
♦A CONSTANT. ♦ 


• ♦• 

E2 ♦. 

• ♦ ♦ 
.♦ IS 
*. ARGUMENT 
♦EXPRESSION* 


• ♦ ♦• 

.♦ PARAMETER ♦. 
>.X*. DESCRIPTION .t 
*. .♦ 


***l*Of 

♦ CREATE SCALAR 
DUMMY OF 
PARAMETER 

♦ TYPE 

♦ 

**************** 


* X* 


**** . 

♦ * . 

♦ E3 ♦.X. 

* * . 

♦♦*♦ . 

X 

«****£ 3********** 

♦ * 

* CREATE SCALAR ♦ 

* CHAMELEON *. . « 

* DUMMY ♦ 


NO .♦ PARAMETER *„ 
,..♦. DESCRIPTION . 
♦ , «.♦ 

*. •♦ 


.♦IS *. 
ARGUMENT ♦. 
AN ENTRY .♦ 
• ♦ 


**** . 

* ♦ . 

♦ HI ♦.X. 

♦ ♦ • 

**** . 

X 

***«*H1 ********* 


.♦ 

J 

♦• 


IS 

alAR 


. * 


GA 


• * 

, * 

YES 


Sjlffliflfci 1 *" *: hV : 


**** . 

M12.M14 X 

*****H3********* 


. * ARG AND 
*. PAR SAME 
*. DATA TYPE. 


*»***K? ********** 


******•**•**•••*• 


*•** , 

* * . 

* J3 *.X. 

* * . 

• •** , 

C0PYPT.M13 X 

***i*j 3 ********** 

* CREATE AN * 

* AGGREGATE * 

* DUMMY Of * 

* PARAMETER * 

* DATA TYPE * 

•*•**•*•*•**••*** 


CHECKS, M44.*. 


.* AGGREGATE *. A 
*, STRUCTURES 
*. MATCH .* 


X 

r . *. 

J4 *. 

•'* ?°&s * *: 
». MATCH .* 
*, . * 

*. , • 

* YES 


CHCKS 1, B2 .*. 

.* h Soe 

NO - 


* Bl * 

* • 
• •** 


* Bl * 

* < 
• **• 


.* OOES *. 

. * REOUCEO *. 
♦. ARGUMENT . < 
♦.STRUCTURE.* 

♦ .MATCH.* 

♦• • * 

* YES 


J5 *. 

. • DO *. 

NO .* DATA *. 
...*. TYPES .* 
. *. MATCH .* 

. *. .♦ 

X *. .* 

•••• * YES 

A * . 

» H3 * 

* * . 

•••• . 

Z11.Z22 X 

+****K5 ********* 

* CONSTRUCT 

* A REOUCEO 

* DOPE VECTOR 

* FOR ARG 
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:hart 3U. Phase GU Overall Logic Diagram 


*****41 ********** 

* GET SCRATCH * 

* STORAGE FOR * 

* CHECK TABLE. *. 

* INITIALIZE * 

* TEXT POINTERS * 
***************** 


***************** 


END ♦. YES 
OF TEXT 

.♦ X 

n # , * ***** 

*. o* ♦HF * 

♦ NO * Al * 


A5I NT, AtNUb I 

*«***£ 3 ********** 

* HOUSEKEEPING * 
♦FOR ENDS, ETC. * 

, X* RESET ♦. 

* IF-SWITCH ONCE * 

* ♦ 
***************** 


ASPECL. AENONO 

***** 04 ********** 

♦ UPDATE CHECK * 

* TABLE FOR * 

. X^ PROC OR BEGIN ♦. 

♦ STATEMENTS ♦ 

* * 
***************** 


A SC 

****«£ 5 ********** 

♦ SET PCSW FOR ♦ 
♦POSSIBLE CHFCK ♦ 

..,X* STATEMENT. ♦ 
♦PROCESS SIGNAL ♦ 

♦ OR CALL STMTS ♦ 
***************** 


» ♦SIGNAL CHECKED *X 

♦ arguments ♦ 

♦ RESFT FMPTR * 
***************** 


* SET * 

* IF-SWITCH *X 

* TWICE ♦ 

* ♦ 
***************** 


YES .♦ FUNCTION *«• 


♦*** c 

BSCAN X 

*«***Q^** ******** 


***************** 


* CALL B ♦ 

*-*-*-*-*-*-*-.*-* 

"♦SIGNAL CHECKED ♦ 

* STATEMENT ♦ 

* LABEL ♦ 

***************** 


*****£ 3 ********** 


♦ , YES .♦ 

♦x. .V «.»••*' 


♦ liU V > I » o » * e 

♦ PSEUDO-CODE ♦ YES .* IS ♦. 

....♦ ROUTINE TO *X. • ♦. PCSW 

♦ CHECK THIS ♦ ♦. SFT .♦ 


***«*F5* ********* 

♦ CALLB ♦ 

*_*_*_*_*_*_*_*_* 

(♦SIGNAL CHECKFD ♦ 

♦ FUNCTION ♦ 

♦ NAME ♦ 

***************** 


BVARNO X 

****«H 3 ********** 

♦ DOWNDATE ♦ 

♦ CHECK TABLE ♦ 

♦ FOR END ♦ 

♦ STATEMENT ♦ 

♦ * 
***************** 


NO .♦ PCSW ♦. 

• •♦. AND FMPTR .♦ 

•-..mr v.*-* 

* YFS 


*****H 5 ********** 

* SET FMPTR IF * 

* ANY ARGUMENTS * 

* IN LIST ARE * 

* CHECKED. SCAN * 

* FROM MARKER * 


CALLIF 

.* J1 ‘‘A. 

,f!h 

SET .*•* 

♦• •♦ 

* NO 


♦ OUTPUT DO ♦ 

, X* STATEMENT. ♦, 

♦ GET END-FLAG * 

♦ OR ENDSW ♦ 

***************** 


*413 ** 14********** 

♦ RE-COPY * 

♦ STATEMENT * 

e x* from ♦ 

* SOURCE TEXT ♦ 

* * 
***************** 


CALSYM X 

*****K3********** 

♦ OUTPUT ♦ 


****< 4 ********* 


***************** 
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Chart HF • Phase HF Overall Logic Diagram 


***** 

♦ HF * 

* Al* 


**** 

• * 

♦ A2 * 

* • 
**** 


***«*A i********** 

’ **« 


* INITIALIZE ♦ 

* 

SCAN TEXT ♦ 

* * 

* * 

* 

* 

**4 


MRBYN 


A3 


,*. 


*, **** 
.♦'STRUCTURE *. YE S * * 

....... X*. ASSIGNMENT X* E2 * 

♦. STATEMENT. ♦ ♦ * 

♦. ,♦ **** 

*. . ♦ 

NO 


B3 ♦. 

* *. 

ITEM IN ♦. YES * » 

♦.PUT STATEMENT. ♦....*♦ G2 * 
♦OATA SPECN.* * ♦ 

♦. .♦ ♦♦♦♦ 
♦• . * 

♦ NO 


LS21 
YES .* STR 


.♦ STRUCTURE ♦, NO 

•♦iiAfe. 


***** 
*HK * 
* Al* 


•**•01 ********* 

EXPAND 
STRUCTURE 
ITEM 


LS23 
YES .*’ 


*• .< 


SfATEX 
AND S 
TEMPS 


"HV 

» ARY 

******* 


***♦ « 

* * , 

* E2 ♦• X* 

• * * 

**** , 

SAORAB X 

«****£ 2* ********* 
♦BUILD UP STACK * 

* FOR STRUCTURE * 
♦UNTIL FIND BASE*X • 

* element, buy * 

♦TEMPS IF NEEDED* 




* X* REPLACE it in * 
♦SOURCE TEXT BY * 
* NEXT ITEM * 


*♦♦♦ 

* * 

' * G? * 

* * 

♦ *** 


H2 *. 

» * *0 

STRUCTURE 


. * ♦* 

NO .♦ END *o 
..♦. OF EXPRN .* 
*„ OR STMT « * 


.* HAS *- NO 
X*. STACK BEEN «♦„•* 
*. BUILT n* 

♦ • • * 


JB *„ 

, * *. 

, * BY NAME < 
♦r ASSIGNMENT 
•«. St ATFMFnT.. < 
*„ „ * 

♦• • ♦ 


t5 start 

* * 
***************** 


«♦ ARE ♦. 
YFS .* THERE *. 
> « • o ♦« MORE ELEMENTS. 


**** 

* * 

* A2 * 

* * 
**** 


BYN U 

* 

*0 
* 

* 

♦ ASSIGNMENT 

***************** 


***H5* ********* 

* BACKSPACE ♦ 
♦OUTPUT POINTFR ♦ 

♦ TO START OF ♦ 
THIS SCALAR ♦ 


* SEARCH FOR ♦ 
<♦ BCO-MATCHINO *,. 

* BASE ELEMENT * 

* * 
***************** 


J5 ♦. 

. ♦ 

. ♦ 

nX*. found 


* ns * 

* * 
**** 


S AX 1 FTC X 

****** 3 ********** 

♦ CHECK ITEM * 
•AGAINST PATTERN* 

* or stack. * n 

* OUTPUT [T AND * 

♦ REPLACE BY NCXT* 

***************** 


**«* 

* * 

X* G2 * 

* « 

**** 


****** <>**** ****** 

* OUT PUT * 

* BCO-MATCHING ♦ 

.* BASE ♦ 

* ELEMENT * 

* * 
***************** 
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Chart HK. Phase UK Overall Logic Diagram 


***** 
*HK * 
♦ Al* 



ARREXP fc 

***«*H1 ********** 


* INFORMATION * 

* IN STACK * 
*********** ****** 


AETRT 

«****H? ******* 

* STaW'MENT 

...X* FOR 

* ARRAYS WHICH 

»£is*i;»si*«**. 


PN 


*****H3******** 

* CHECK^BOONOS 

«s ^mwm» 


SLMJJ 


***HA********** 


FRFTMP 

*****H5********** 

* GENERATF 


a^IhI-nts 

fEMPORARII 


***************** 
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!| 


Chart HP. Phase HP Overall Logic Eiagram 


* INITIAL! ZF * 

+ TEXT *. 

* POINTERS * 

* * 
***************** 


SCAN 

SO^E 


**************** 


.♦ DEFINED i 

'"•..wr.* 
* # . * 


FNO 

OF 

TF XT 


***** 

♦ I A ♦ 

♦ A1 * 


****£] ********* 

> * 

* SUMO VF * 

» 9 

*************** 

**+* 


**** 

SUSCAN X 

*«***□] ********** 


***************** 


.* DEFINED ♦. yes 
*e SUBSCRIPT .♦,.*. 
♦• MARKER . ♦ 

*. # * 


* SKIP TO START * 

* OF SECOND * 

♦SUBSCRIPT LIST ♦ 

* * 
***************** 

♦♦♦♦ l 
* * . 

* C3 ♦ •X* 


.♦ SUBSCRIPT ♦ . YFS 


DFNGUB .♦. 

* L 

r * 


♦ ****C «%♦*** ****** 

♦OUT PUf BUV TFMP9 
“■ TEMP EQUALS. ^ 


e * *”c "JUIMJI fJUT 

• * EITHER *• NO ♦ TEMP EQUALS* ♦ 

**" a n Integer or,* x* savf refcf op * 

♦•CONSTANT •* * TEMP IN TABLE * 

*. „ * * * 

*. . * ***************** 


*****f)4 ********** 


***************** 


***************** 


F4 


♦r 


***************** 


SUSUBS 

*«***F2 ********** 

♦ OUTPUT PRIOR * 

♦ TEXT, FINO * 
...X* TABLE ENTRY * 

♦ CORRF SPONOING * 

♦ TO I SUB NUMBER ♦ 
***************** 


2 ********* 

* OUTPUT 

* OICT REECE 

* OF TEMP OR 

* SUBSCRIPT 

* 

**************** 


****H? ********* 


ANY 

>* MORF *. YES 
■SUBSCRIPTS IN.*.,.. 
*. SECOND .* 
♦.LIST .* 

*. „ * 

* NO 


DEDONE 

***************** 

♦ SET POINTER TO * 
♦START Of flRST * 
♦SUBSCRIPT LIST.* 

* OUTPUT REECE 

:* — 


DENE XT 

*****£*********** 

♦ SIIMOVE * 

*- *- *- *- *-*-*-*-* 

♦ OUTPUT * 

♦SUBSCRIPT. RE- 

♦ PLACINJ IJUBS 


********4 


****** 


. ♦ ANY *. 

YES MORE ♦. NO 

RIPTS IN* ♦••• 


♦♦***H5 ♦♦♦*♦♦*♦♦ 


• r**r SURS£RJPTS lh 

*' *. lIs? t .* #< 


OUTPUT 
STATEM 
FOR TE 


****j ********** 


DERETM .*. 

J5 *. 

.* WAS *. 

YES .* THIS A *. 
*. CALL FROM .* 
*• _ SUMOVE ^.* 

’*. .*’ 

* NO 
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Table GA. Phase GA DCLCB Generation 


' T r 

|Main Processing! 

| Routine | 




| Statement or Operation Type 

h 

| Scans STATIC chain 

b 

(Generates DECLARE control block 
j entry 

I- 

(Generates OPEN control block entry JIL0120 

L X 


Subroutines Used 


| J.L0100 

•+ 

| IL0110 

I 

4 


| ILO 11 0 , IL0120 

4 

| CHKATT, IHEENV 

I 

4' 


| CHKATT 

.x 


Table GA1. Phase GA Routine/Subroutine Directory 


r T . 

| Routine/Subroutine | 

b 


Function 


CHKATT 

IHEENV 

IL0000 
IL0100 
ILO 110 
I L 0 1 1 4 
ILO 11 5 
ILO 117 
IL0118 
IL0120 
IL0200 

L 


Checks attributes and creates control words. 

Checks environment options, and inserts them into DECLARE control 
blocks . 

Entry point from compiler control. 

Scans STATIC chain. 

Generates DECLARE control block entry. 

Test point for environment entry. 

Return point from environment processing. 

Processes file attributes entry. 

Branch point of SYSPRINT file found. 

Generates OPEN control block entry. 

Releases control. 
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•Table GB. Phase GB Pretranslator I/O Modification 


T T 

Main Processing 
Routine 

+- 


Statement or Operation Type 


Subroutines Used 


■H 


Removes all second level markers 


Throughout 

phase 


None 


+- 




Reorders options to put EDIT, DATA 
or LIST last 


A8 


SONS, SCAN2 


+- 


--1 


Moves DO specifications to precede 
relevant list in data lists, adds 
END statements 


SCAN2 


LLDCIT 


- + ■ 


Expands iteration factors in format 
lists 


FORLST 


None 


I I- 


Checks for use of COBOL files in 
READ, WRITE, and LOCATE Statements 


A4 


LOCATE, READ, WRITE, DELETE, MAP, 
COPY, STSCAN 
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Table GB1. Phase GA Routine/Subroutine Directory 


r T " 

| Routine/Subroutine | 


Function 


AFORMT 
| A4 
A6 
A8 
A21 

COPY (GO 

DELETE (GC) 

FORLST 

F2 

F5 

F5A 

F6 

F6A 

F6B 

F7 

LABI 7 B 
| LLDOIT 

^LOCATE (GC) 

I 

MAP ( GC ) 

I 

MKROOM 

MR 

READ (GC) 

SCAN 2 

SCNS 

STSCAN (GC) 

WRITE (GC) 


l.. 


Processes FORMAT statements. 

Checks for use of COBOL files in READ, WRITE, and LOCATE statements. 
Scans source text for GET and PUT statements, 
re-orders options to put EDIT, DATA, or LIST last. 

Scans GET or PUT statement for data specification. 

Copies a structure and places the copy on the COEOL chain. Sets up 
text skeletons. 

Removes an offending I/O statement and inserts an error statement in 
the output text. 

Expands iteration factors in format lists. 

Creates and buys integer temporary. 

Scans and outputs format item. 

Sells temporary. 

Tests for end of format list. 

Tests for end of format specification. 

Outputs end of format specification. 

Scans format list. 

Processes format list in GET or PUT statement. 

Moves DC specifications to precede relevant list in data lists, adds 
END statements. 

Checks for the use of a COBOL file, and puts out a warning diag- 
nostic. 

Compares the PL/I and COBOL and PACKED (NCNSTRING) mappings of a 
structure. 

Provides space in a statement in new source file. 

Initializes text blocks and pointers, and obtains scratch storage. 

If a READ IGNORE is encountered, no action is taken. If a READ SET 
is encountered, a warning diagnostic is given. If a READ INTO for a 
structure is encountered, PL/I and COBOL mappings are compared. 

Scans option list for end of option or statement, expands DO speci- 
fications, and changes certain function markers into pseudo- variable 
markers . 

Scans option list for end of option or statement. 

Stores the dictionary reference of the file and the INTO/FROM varia- 
ble, and sets flags. 

For structures, the PL/I and COBOL mappings are compared. 
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Table GK. Phase GK Pretranslator Parameter Matching 1 


Statement or Operation Type 

' T 

|Main Proces 
| Routine 

. . -L . 

T 

sing | 

1 

Subroutines Used 

Scans source text for function 
markers 

r 

| BASCAN 

1 

| CPSTMT, 

1 

CRSTMT 

Processes function, puts out ref- 
erence and initial code bytes 

1 

| BAFM 

1 

i 

..... 1 

| SCANRP 

1 

1 . 


Processes arguments 

T 

| BALOOP 

1 ... . .. 

| ADDTGT, 
a 

SCNCRP 

Checks numbers of arguments 

T 

| ARGNOQ 

± 

I 

| None 

x_ 



Table GK1 . Phase GK Routine/Subroutine Directory 


r T* 

| Routine/Subroutine | 


Function 


h 




ADDTGT 

ARGNOQ 

BABT3 

BACALQ 

BADELM 

BAFM 

BAFST 

BALOOP 

BALPQ 

BAMORE 

BANORM 

BAPVM 

BARECQ 

BARGFN 

BASCAN 

BASTOP 

CPSTMT 

CRSTMT 

SCANRP 

SCNCRP 


Adds data to output text. 

Checks number of statements. 

Tests for STOP marker. 

Outputs function and first bytes of argument list. 

Tests for end of argument list. 

Processes function, puts out reference and initial code bytes 
Locates SETS list and parameter list for function. 

Processes arguments. 

Tests whether argument list is present. 

Accesses next argument in list. 

Sets STOP marker to scan argument. 

Examines pseudo-variable. 

Tests for nested function reference. 

Outputs warning message. 

Scans source text for function markers. 

Outputs argument. 

Adds closing bytes of a statement to output text. 

Adds first bytes of a statement to output text. 

Scans argument list. 

Scans argument. 


168 


Table GO. Phase GO Preprocessor Parameter hatching 2 


T T' 

|Main Processing! 

1 Routine I 


Statement or Operation Type 


Subroutines Used 


j Initialization and scratch core j PMATCH 

(utilization for Parameter Matching j 

1 2 | 

L J. 


Table GC1 . Phase GO Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


PMATCH j General initialization and scratch core utilization for Parameter 

(Matching 2. 

I 

POLYMV | Moves the routines P0LY1, POLY 2 , POLY3 , POLY 4 and POLY 5 into scratch 

j storage (see Table GP) . 
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Table GP. Phase GP Pretranslator Parameter Matching 2 


T T 

Main Processing 
Routine 

+ . 


Statement or Operation Type 


Subroutines Used 


Scans text for procedure and func- 
tion calls 


BSl 


ADDTT, STKINF, UNSTCK 


Examines argument lists for expres- 
sions 


BS4 


EXSCAN, Ml, M4, M16, SCANFR 


Creates temporaries for scalar 
expressions and constants 


M16 


ADDTT, CCPYTP , MKDCEN, SETBUY 


Creates temporaries for array 
expressions 


E2 


ADDTT, CHCKB1 , COPYTP, MKDCEN, 
SETBUY 


Creates temporaries for partially 
subscripted array expressions 


E 3 


ADDTT, CHCKB4 , COPYTP, MKDCEN, 
SETBUY 


4 - 


Creates special temporaries for 
partially subscripted arrays 


EX1 6 


4 - 


ADDTT , BS2 , CHCKB4 , CHECKT, C0PYT1, 
MKDCEN, STKINF , UNSTCK, Zll, 

SETBUY, SE1MT 


Checks single arguments (except 
structures) with parameter descrip- 
tions 


M4 


CHECKT, Ml 6 


4 - 


Checks single structure arguments 


M5 


4 - 


CHECKS, CSTTMP 


Creates temporaries for structure 
expressions 


M21 


CSTMP2 , MKDCEN, CHCKB4 , SETMT, 
ADDTT 


4 - 


Creates temporaries for partially 
subscripted structure 


Z 22 


4 - 


BS2 , ADDTT 


I" 


Compare the two arguments of the 
POLY function and create 
temporaries if the arguments are 
not both floating and do not have 
the same scale and precision 


P0LY1, POLY 2 , 
POLY3 , POLY 4 , 
P0LY5 


BS2 


4 


Creates special dictionary entries 
for generic entry labels used as 
arguments 


M37 


None 


170 



Table GP1. Phase GP Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h- 


Functicn 




ADDTT (GR) 

BS1 
BS2 
BS4 
BS10 
BS3 3 

CHCKB1 (GR) 

CHCKB2 (GR) 

CHCKB3 (GR) 
CHCKB4 (GR) 

CHCKS1 (GR) 
CHECKB (GR) 
CHECKS (GR) 

CHECKT (GR) 
COPYTP (GR) 
COPYT1 (GR) 

CSTTMP/CSTMP2 
EXSCAN (GQ) 
EX16 (GQ) 

EX36 (GQ) 

E2 (GQ) 

E3 (GQ) 

MKDCEN (GQ) 

Ml (GQ) 

M2 (GQ) 

M4 (GQ) 

M5 (GQ) 

M6 (GQ) 

M10 (GQ) 


(GQ) 


Adds text to output block. 

Scans input text. 

Scans input text. 

Examines argument lists for expressions. 

End-of -program routine. 

Tests for constant argument. 

Compares the bounds of argument and parameter arrays, and creates 
new dimension tables for temporary arrays. 

Compares the bounds of argument and parameter arrays where the argu- 
ment is partially subscripted, and creates new dimension tables for 
temporary arrays. 

Creates a new dimension table from: a parameter description. 

Creates new dimension tables for partially subscripted array and 
structures . 

Compares the structuring of argument and parameter structures. 

Compares the bounds of argument and parameter arrays. 

Compares structuring and data types of argument and parameter struc- 
tures . 

Compares data types of arguments and parameters. 

Creates a temporary dictionary entry from a parameter description. 

Creates a temporary dictionary entry for a partially subscripted 
array from a parameter description. 

Create temporary structure dictionary entries. 

Scans expressions for arrays and structures. 

Creates temporary arrays for partially subscripted array arguments. 
Creates a chameleon dictionary entry. 

Creates temporaries for array expressions. 

Creates temporaries for partially subscripted array expressions. 
Makes dictionary entries. 

Examines argument expressions. 

Examines single arguments with parameter descriptions. 

Compares single arguments with parameter descriptions. 

Examines structure arguments. 

Tests for structure parameter. 

Processes subscripted variable argument. 
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Table GP1 . Phase GP Routine/Subroutine Directory (cont'd) 

Function 


r *r 

| Routine/Subroutine | 


I- 


M12 
| Ml 3 
M14 
M16 
M21 
M2 2 
M2 3 
M2 4 
I M37 


(GQ) 

(GQ) 

(GQ) 

(GQ) 

(GQ) 

(GQ) 

(GQ) 

(GQ) 

(GQ) 


M41 (GQ) 

M44 (GQ) 

POLY1 , POLY2 , 
POLY3 , POLY 4 , 
POLY5 (all in GO) 

SCANFR 

SETBUY (GQ) 

SETMT (GR) 

STKINF 
TESTC 
UNSTCK 
Zll (GR) 

Z22 (GR) 


Creates a warning message. 

Gets BUY text. 

Processes scalar argument. 

Creates temporaries for scalar expressions and constants. 

Creates temporaries for structure expressions. 

Processes data item parameter. 

Processes label parameter. 

Creates a structure temporary. 

Creates dictionary entries for generic entry labels which are argu- 
ments . 

Error routine. 

Processes dimensioned scalar argument. 

Check the arguments to the POLY function and generate code to buy 
temporaries, if the arguments are not both floating and do not have 
the same scale and precision. 

Scans for matching parentheses. 

Inserts skeletons to buy temporaries in the output text. 

Sets temporary dictionary references in MTF compiler functions for 
array and structure bounds. 

Stacks information on encountering nested functions. 

Tests for constant argument. 

Unstacks information. 

Generates text to set up the dope vectors of partially subscripted 
array temporaries. 

Generates text to assign the structure subscripts of partially sub- 
scripted structures to temporaries, and then to set up the dope 
vector for the partially subscripted structure temporary. 


Table GU. Phase GU Pretranslator Check List 


r ~ _ _ _ _ . 

j Statement or Operation Type 

1 

|Main Processing 
j Routine 

i 

j Subroutines Used 

j 


r 

| Scans statement; checks if preced- 
jing SIGNAL statement is needed 

L . 

1 

| BSCAN 

i 

x 

T 

|CALL, LIST, MOVE, SUOPQ 

1 

-L 


r 

| Scans statements; checks if follow- 
j ing SIGNAL statement is needed 

L _ ... 

i 

| ASCAN 

1 

.-j. - 

T 

(None 

i 

4- 

_ jj 

j| 

r 

| Provides a SIGNAL CHECK statement 

L 

|CALL 

_i 

T 

| GENTST 

x _ 

i 

j 

r 

| Searches list for checked items 

L 

T 

| SUOPQ 

J. 

1 — ■ 

j CALL , LIST 

I 

I 

j 
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Table GUI. Phase GU Routine/Subroutine Directory 


r t ' 

j Routine/Subroutine | 


Function 


[■ 




H 


ABGNDO 

AFM 

ASC 

ASCAN 

ASCL 

ASPECT 

ASTMT 

ATEST4 

ATEST5 

ATST3 

BENTON 

BPC 

BSCAN 

BSTMT 

BTEST3 

BTEST4 

BVARNO 

CALL (GV) 

CALLBA (GV) 

CALLEX (GV) 

CALLIF (GV) 

CALSTM (GV) 

CALSYM (GV) 

GENTST 

LIST (GV) 

MOVE 

SUOPQ (GV) 


Sets IF-switch for THEN or ELSE clause. 

Signals checked items in argument list. 

Tests statement identifier and takes action if necessary. 

Scans statements; checks if following SIGNAL statement is required. 
Examines statement dictionary entry. 

Examines statement dictionary entry which is not a label. 
Housekeeping for end of statement. 

Tests for argument list. 

Tests for THEN. 

Tests for end of statement. 

Test whether argument list contains checked item. 

Processes "possible check" statement. 

Scans statement; checks if preceding SIGNAL statement is required. 
Tests whether SIGNAL statement may be needed after statement output. 
Tests for end of statement. 

Tests for argument list. 

Tests for END statement. 

Outputs SIGNAL statement for checked item. 

Tests whether SIGNAL precedes or follows statement responsible. 

Exit from subroutine CALL. 

Tests whether DO statement must be output. 

Re-outputs overwritten statement after DO statement. 

Outputs SIGNAL statement. 

Checks space in output text block. 

Updates and searches list of currently checked items. 

Moves text from source to output. 

Searches list for checked items. 
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Table HF. Phase HF Pretranslator Structure Assignment 

r T T 

Main Processing 
Routine 


Statement or Operation Type 




+■ 


Subroutines Used 


Scans text for structure assignment 
Statements, regions of nested 
statements, output list expres- 
sions, and structure references in 
input lists 


MR 


BYNAME, GENTST , LSTSCN, MOVE, 
NSTSCN, STRASS, 3TREXP , STRURE 


Expands structure assignments and 
expressions into a set of scalar 
assignments or expressions corres- 
ponding to the base elements of the 
structure operands. Where the base 
elements are arrays, the corres- 
ponding component expressions or 
assignments are surrounded by 
appropriately iterating DO groups 


BYNAME, STRASS, 
STREXP, STRURE 


DVCON, GENTST, LSTSCN, MOVE, 
NSTSCN, SBGN 


Scans regions of nested statements 
for structure assignments 


NSTSCN 


MOVE, NSTSCN, STRASS 


Adds text to the output string 


MOVE 


GENTST 


+ - 


Determines space availability in an 
output text block 


GENTST 


MOVE 


+ - 


Scans function argument and sub- 
script lists 


LSTSCN 


MOVE, NSTSCN 


+ - 


Constructs DO statements and checks 
bound equivalence 


DVCON 


GENTST 




Constructs subscript lists for 
references to dimensioned structure 
base elements 


SBGN 


GENTST 
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Table HF1 . Phase HF Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


\- 

BYNAME (HG) 

BYN1 (HG) 

BYN11 (HG) 

BYN13 (HG) 

DVCON (HG) 

GENTST 

LSGET 

LSTSCN 

LS21 

LS23 

MOVE 

MR 

MRBYN 
MRTRT 
NSTSCN 
SADRAB (HG) 
SAEND (HG) 
SAOP (HG) 
SATRT (HG) 
SAXl (HG) 

SA2 0 (HG) 
SA32 (HG) 
SA36 (HG) 

SA7 3 (HG) 
SA79 (HG) 
SBGN 

STRASS (HG) 
STREXP (HG) 
STRURE (HG) 

L . 




Expands BYNAME structure assignments. 

Searches for matching BCDs down to base elements. 

Returns to start of current output assignment statement. 

Test for matching ECDs. 

Constructs DO statements, checks bound equivalence. 

Determines space in output text block. 

Tests for GET statement. 

Scans subscript arguments and subscript lists. 

Tests for structure item in data specification. 

Tests for data-directed data specification. 

Adds text to output string. 

Scans text for structure assignment statements, nested statements, 
output list expressions, and structure references in input lists. 

Tests for BY NAME assignment statement. 

Scans source text for structures. 

Scans regions of nested statements for structure assignments. 
Builds up stack to show pattern of structure. 

Tests whether END statements need to be output. 

Examines dictionary reference found. 

Scans structure expression or assignment. 

Tests whether item matches the stack pattern. 

Tests for start of structure expression. 

Outputs base element and replaces it in source text. 

Tests for BY NAME assignment statement. 

Outputs END statements. 

Resets scan pointer to start of expression/assignment. 

Constructs subscript lists for references to dimensioned structure 
base elements. 

Expands structure assignments into DO loops. 

Expands structure expressions. 

Expands structure references. 
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Table HK. Pretranslator Array Assignment 


Statement or Operation Type 

|Main Processing 
J Routine 

i 

| 

1 

i 

Subroutines Used 

Scans text for array and scalar 
assignment statements 

T 

| MR 

1 

.. | 

T 

| None 

1 

I 


Scans text for nested array and 
scalar assignment statements 

1 

| MR 

1 

± 

r 

| NESTAT 

1 

-L 


T 

Scans text for array expressions in | MR 

I/O lists in GET and PUT statements} 

X 

t 

| ARRASS, 

I 

_L 

LSTSCN 

Expands arrays into DO loops and 
scalar assignments; checks dimen- 
sions and bounds 

T 

| ARRASS 

1 

1 

X 

1 

| FRETMP , 

1 

1 

X 

MDE, OPTST , SLGCH , SUBSKP 


Table HK1 . Phase HK Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 


Function 


| AADOP 

1 

(HL) 

(Examines leftmost operand. 


1 

| AAMULA 

i 

(HL) 

1 

| Tests for multiple assignment. 

i 


1 

| AA3 (HL) 

i 

1 

(Checks pseudo- variables . 

i 


j AETRT 

(HL) 

1 

| Scans array expression. 

1 


} ARRASS 

(HL) 

1 

| Expands arrays into DO loops and scalar assignments; checks dimen- 
j sions and bounds. 

| 


| ARREXP 

(HL) 

1 

[Generates DO loops and subscripts for array references, 

i 


| ARRIN 

(HL) 

1 

(Entry point for array expressions in input lists. 

1 


} ARROUT 

(HL) 

1 

(Entry point for array expressions in output lists. 

1 


| FRETMP 


1 

(Generates a SELL statement for temporaries bought in the current 
(statement. 

i 


| LSTSCN 


1 

| Scans I/O lists for possible array expressions. 

1 


| MDE 


1 

| Makes a temporary dictionary entry. 

1 


} MR 


1 

(Scans text for array and scalar assignment statements, for nested 
| array and scalar assignment statements, and for array expressions 
| GET and PUT statements. 

in j 

| MREOP 


I 

(Tests for end of text. 

i 


| MRTRT 


1 

| Scans text. 

!| 

| NESTAT 


1 

| Scans nested statements. 

i 

j 

| OPTST 


1 

(Tests any given operand. 

J 

} SLGCH 


1 

[Generates and checks subscript lists, 
j 


| SLMCG 


1 

(Inserts subscripts in expanded array position. 

I 


1 SUBSKP 


1 

(Skips a subscript or subscript list. 

1 

I 
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Table HP. Phase HP Pretranslator iSub Defining 

r T" 


Statement or Operation Type 

(. 

Scans source text for references 
defined by iSUB 

h- 


Main Processing! 
Routine j 

4 +- 


Subroutines Used 


MASCAN 


MOVE 




4 

| GENTST , MOVE, SULIST, SUMOVE. 




Processes references defined by 
iSUB 


DEFSUB 


Scans subscripts 


SUMOVE j None 

(in SULIST) | 


L — 


Table HP1 . Phase HP Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


h 


4 - 


DEDONE 

DEEND2 

DEFSUB 

DEGBDl 

DENEXT 

DENGUB 

DERCUR 

DERETN 

DETEMQ 

GENTST 

INIT 

MASCAN 

MOVE 

SULIST 

SUMOVE 

SUSCAN 

SUSUBS 


Resets pointers to scan first subscript list. 

Creates and buys temporary. 

Processes references defined by iSUB. 

Tests for end of second subscript list. 

Outputs first-list subscript and tests for end of list. 

Tests whether dictionary reference is constant or integer variable. 
Stacks parameters for recursive entry to DEFSUB. 

Returns to MASCAN or SUSCAN. 

Tests whether second-list subscript is simple dictionary reference. 
Checks space in output text block. 

Initializes text blocks and pointers, gets scratch storage. 

Scans source text for references defined by iSUB. 

Moves text from source to output. 

Scans subscript lists. 

Scans subscripts. 

Scans subscript. 

Replaces iSUB by corresponding subscript or temporary. 
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Chart 05. Translator logical Phase Flowchart 
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Chart IA 


Phase IA Overall Logic Diagrarr 
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Chart I: 


Phase IG Overall Logic Diagram 
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:hart IW. Phase IM Overall Logic Diagrarr 
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hart IT. Phase IT 


Overall Logic Diagram 


***** 
•IT * 
* A2* 




***+«B2****++*** 


■*3h 


TEXT 

EVANT 

LES 


8J *. 

. * HAS *. 

.* END OF ♦. YES 
.X*. PROGRAM BEEN .*.... 
*. FOUND . * 

*, 


*. 


NO 


' * * V 

***** 
*ix * 
* Bl* 


C2 *. 

.* HAS *. 
FUNCTION 
MARKER 
. FOUND . 
*• , * 
*. . * 

* YES 


***• . 

PGFUNC X 

•**••02 ********* 


• **• 

>. NO * • 

.*.... X* B2 « 


* MODIFY 

,X* TMPO'S 

* IF NECESSARY 


***• 

* * 

* BE *X 

* * 
•*•* 


.* HILL *. 

*:* 4Sok ?| *: 

•.GENERATED.* 




3******* 

* SCAN TEXT 




• *• 

G3 ♦. 

• ♦ WAS ♦. ♦♦♦♦ 

NESTED ♦. YES * * 

EyNCIjgy ...... x* 02 * 


'♦.bff£CT?{> . 

• * 


.♦"'IS ♦. 

TEMP. A ♦. NC 
CHAMELEON .♦.. 


**** 


**** 

♦ * 

» X* B2 ♦ 
♦ * 

♦♦** 



182 



•Table IA. Phase IA Translator Stacker 


C ”” 

j Statement or Operation Type 

il_ 

T 

|Main Processing 
j Routine 

T 

! 

1 

Subroutines Used 

ir 

|| Scans source text 

| ESCAN 

1 ... . .. ... 

T 

| None 

j. 


Ir ■ 

|| Compares transfer vector 

i . .... ... 

r 

| EACTNC 

-L 

T 

| ECOO to 

EC10 

ir 

J Stacks transfer vector 

ii 

1 

| EACTNS 

± . . 

1 

| ESOO to 

ES2E 

r ■ 

1 Generates triples 

1 _ 

| EGENR 

1 

— I 

j EGENR2 , 

| EREPL, 

X 

EGENR3, ENEWBL, ENOREP, 
ETRBMP 


•Table IA1. Phase IA Routine/Subroutine Directory 


( T - 

Routine/Subroutine | 

+ . 


Function 


r 

EACTNC 

EACTNS 

ECOO to EC10 
! EGENR 
EGENR2 

EGENR 3 
ENEWBL 
ENOREP 

EREPL 

ESCAN 

ESTCAC 

ESOO to ES2E 
ETRBMP 


Compares transfer vector. 

Stacks transfer vector. 

Provide comparison action for each operator. 

Generates triples. 

Generates triple for top stack operator, with blank first operand, 
then deletes the operator from the stack. 

Generates triple with two blank operands. 

Obtains and chains new text block for output, resets output pointer. 

Deletes top stack operator, flags new top operand as the result of 
the triple just generated. 

Replaces top stack operator by its prime, to indicate end of a list 
of function arguments or subscripts. 

Scans source text. 

Places operand in stack. 

Handle stacking of operators. 

Increments output point over one triple if end of text block is 
found. 
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Chart IX. Pnase IX Overall Logic Diagram 


***** 
♦IX * 
♦ 81* 


***«*B i ********** 


INITIALISE 


***************** 


+ SCAN TEXT FOR ♦ 

* INTERESTING + 

* TRIPLE ♦ 
+ * 
***************** 

**** l 

* ♦ • 

♦ OL ♦. X. 

* ♦ • 

**♦* X 


* ♦ 


OX 


*• 




END 

OF TEXT •*. 
BLOCK .* 

*• •* 

♦• • ♦ 

♦ NO 


*****D?********** 


***************** 


*****E 2 ********** 


• ♦ 

> •♦ 

♦ NO 


*****F1 ********** 
* * 

* SELECT ♦ 

♦ APPROPRIATE ♦ 

♦ ROUTINE * 

* * 
***************** 


TEST 

*****£ 1 ********** 

* TEST OPERANDS * 

* FOR * 

* DATA TYPES ARF A* 

* AND POINTER * 

* * 
+f ******* ******** 


***************** 


***** 
♦JD * 
♦ Al* 


* EITHER ♦. YES 
OPERAND IN .♦»«.„ 
FRROR *♦ 


• ♦ ARF *• 
.♦THERE >2C'( 

, TEMPORARY 
♦« RESULTS • 


*«***H 3 ********** 


***************** 


*** **H4 ********** 

* SET UP ♦ 

* ERROR TRIPLE * 

IN TEXT AND *„ 

* ERASE BAD * 

* STATEMENT * 
***************** 


. X* 


*****j 2* ********* 
* * 

* SET UP * 

,X* ERROR MESSAGE ♦ 

* AND ABORT * 

* * 
***************** 
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***** 
*JD * 
* Al* 


r ni t i x 

*4>***B1 ********** 

* INITIALIZE * 

* POINTERS ETC. * 

* GET SCRATCH * 
♦CORE FOR STACK * 

* * 
***************** 


* END OF 
%..X* EXPRESSION 


SCANT 

«****C1 ********** 

* SCAN TEXT * 

* FOR CONCAT 
.. * OR PREFIX 

* TRIPLES * 

* * 
***•**•***•**•*«« 


*X. 


*••** 01 ** ******** 


MORTXT 

♦♦♦♦♦D? ********* 

* GET NEXT 
♦BLOCK IN CHAIN 

... X* AND RESET 

* POINTER 


***************** 


*****0 1 ********** 


***************** 


*****F i ********** 


.* IS THE ♦.YES 
•X*. STACK EMPTY .♦..*. 
*, . * 

*. . * 


* SCRATCH CORE * 

X* AMO ♦ . 

♦RETURN CONTROL ♦ 

♦ * 
***************** 


***** 
*JI * 
♦ Al* 


IS ♦. NI 

THE STACK .♦*, 
> EMPTY .♦ 


***************** 


**«**G1 ********** 


*****P3*********: 

* 

♦ PUT OUT 

K* MESSAGE 

♦ AND ABORT 

♦ 

****************] 


. X* CONTROLLING ♦ X. 

♦ ROUTINE CALLS ♦ 

* * 
***************** 


,.***** 

•FROM THE' ST 

* INTO TEXT. * 

* ABORT IF * 

* STACK EMPTY * 

*••**••*•*******• 


TRYFLG X 

*»***e 5 ********** 

* TEST FLAG * 

* BITS WHICH * 

♦CONTROL STACKNG* 

* ABORT IF * 

* STACK FULL * 

***************** 


* UPDATE TEXT * 
. * POINTER RESET * 

* TFLAG TO ZERO * 

* * 
******** ********* 


, X* CONCATENATION *, 


***************** 


****»H1 ********* 


♦ROUTINE CHECKS * 

, X*OPERANDS DIET. *. 

* ENTRIES * 

• * 
•**«***•*•****•*« 


**************** 


***** Jl ********* 
* 

* 

, X* UNARY PREFIX 


BOTH 

d CONSTANT 
*. STRINGS 

♦. * * 


«****H3 ********** 


***************** 


*****G4********** 

* CONCATENATE, * 

* ANO MAKE NEW ♦ 

:* 0 ICT, ENTRY ♦. 

* FOR RESULT * 


****«G5 ********** 

* NULL TRIPLE, ♦ 

* PUT REF IN * 

* STACK TEMP, ♦. 

♦SET SFLAG * 

* * 
***************** 


»X* 


***•*«] ********** 
* * 

♦ INERT ♦ 

,X^ NON- PRODUCT I VE^,, 

♦ triple ♦ 

♦ * 
***************** 


***************** 


**«**K2 ********** 


*«***J4 ********** 

♦ SET SIGN ♦ 

* ANO MAKE NEW ♦ 
»«X* DICT, ENTRY ♦„ 

♦ IF MINUS ♦ 

* ♦ 
***************** 


* rfJUL ! HI rLC , * 

* PUT REF INTO ♦ 
<♦ STACK TEMP, * 

♦SET SFLAG » T2 ♦ 

* * 
***************** 


**** 

* * 

♦ C5 ♦ 

* * 
**** 


» X * SET TFLAG ON *. 


***************** 


Section 3: 


Charts 


and Routine Directories 


185 



Table IG. Phase IG Translator Pre-Generic 


Statement or Operation Type 

~T 

(Main Processing 
| Routine 

1 

I 

1 

Subroutines Used 

Scans text for BUY aggregate argu- 
ment dummies, end-of-block, and 
end-of -program triples 

1 

| GSl 

1 

1 

1 FR, 

1 

1 

■f 

BR, TRF1, GS12 

Obtains next text block 

| GS12 
r 

| None 


Transfers text to output block 

1 

| TRF1 

| None 


Transfers text skeletons to output 

| TRF2 

-L 

1 GSl , 

L 

TkFI 

Stacks and unstacks information on 
encountering function and function 
triples 

T 

| FR, FRP 

1 

1 

r 

| None 

i 

i 


Inserts assignment statement for 
aggregate argument dummies 

1 

| BR 

1 

.X ■ _ _ 

1 GSl, 

1 

X 

TRF2 


Table IG1. Phase IG Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 



Inserts assignment statements for aggregate argument dummies. 
Transfers point for IGNORE triple. 

Inserts assignment into text. 

Makes new dictionary entry for temporaries. 

Processes second BUY. 

Stack and unstack information on encountering function and function' 
triples . 

Scans text for BUY aggregate argument dummies, end-of-block, end-of- 
program triples. 

Chains to next text block on encountering an end of block marker. 
Transfers text to the output block. 

Transfers text skeletons to the output block. 
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Table IL. Phase IL Translator Pre-Generic 

r t t 

| | Main Processing! 

j Statement or Operation Type | Routine j 


| Moves function table to scratch | BASROU |None 

| storage. j j 

t x _ x 


Subroutines Used 


I 

I 

*1 


j 


Table IM. Phase IM Translator Generic 


j Statement or Operation Type 

L _ 

T “ 

|Main Processing 
j Routine 

± - - 

T 

| 

1 

X 

Subroutines U 

sed 

— l 

j 

1 

| Selects function for processing 

l 

| GNFUNC 

i 

T 

| GNXTRP 

-L 




1 

j 

(Selects generic procedure 

I 

| GNPLIG 

X 

1 

( GNDRTA, 

-1 

GNXTRP, 

GNFMID 


1 

j 

r 

(Selects generic Library routines; 
(determines function result 

l .... . ... ... . 

1 

| GNBIFH 

1 

1 

1 

.1 __ . . . . 

1 

( GNARID , 
| GNGNCR, 

| GNSBAR, 
j GNSFMS 

1 

GNCBEF , 
GNPRSC , 
EXPANL , 

GNCACI , 
GNSACK , 
GNSAPR , 

GNC1BI, 
GNSAPC , 
GNSBRT, 

1 

j 

r 

(Selects chameleon dummy and inserts 
j it in relevant dictionary entry 

i _ 

T 

| GNCHAM 

1 

1 .... 

1 

| GNXTRP, 

1 

4 . _ 

EXPANL 



1 

j 

r 

(Controls scan of text -- branches 
j to processing routine 

L 

(EXPANL 

1 

X 

1 

| ARITH , 

1 

X 

LST1 , SUBSPT , ASSIGN 

1 

J 
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•Table IM1. Phase IM Routine/Subroutine Directory 


r t 

| Routine/Subroutine j 

J. -j- 

ARITH (IN) (Calculates type of result of arithmetic operation (except **) 

I 

ASSIGN (IN) | Returns to calling phase with result. 

I 

EXPANL (IN) (Controls scan of text — branches to processing routine. 

I 

GNARID (IP) | Identifies argument of built-in function and converts it to valid 

jtype, if possible. 

I 

GNEIFH (IP) | Selects generic Library routine; determines function result. 

I 

GNB08 (IP) | Selects relevant family member. 

I 

GNB16 (IP) | Sets up result type of a built-in function. 

I 

GNCACI | Checks and converts a decimal integer. 

I 

GNCBEF | Standardizes argument code byte to a form for generic selection. 

I 

GNCHAM | Selects chameleon dummy and inserts it in relevant dictionary entry. 

I 

GNCTBI | Converts from decimal to binary. 

I 

GNDRTA (Analyzes dictionary type. 

I 

GNEOB (Processes end-of -block marker. 

I 

GNEOP (Processes end-of -program marker. 

I 

GNFMID (IQ) (Identifies family member. 

I 

GNFUNC | Selects function for processing. 

I 

GNF04 (Checks for nested function situation. 

I 

GNF027 (Sets up result type of a PL/I function. 

I 

GNFM3 (IQ) j Replaces original reference in text. 

I 

GNL06 (IQ) | Forms entry relating to particular invocation. 

I 

GNGNCR (General conversion routine. 

I 

GNPLIG (IQ) | Forms tacle of family member descriptions. 

I 

GNPRSC (IP) | Selects highest mode, scale and precision of variable argument list. 

I 

GNSACH (Performs special argument check. 

I 

GNSAPC (Calculates scale and precision of a function result. 

I 

GNSAPR (IP) (Examines second and third arguments of the SUBSTR built-in function 

(or pseudo-variable and, if possible, converts them to binary 
| integers. Sets selection code according to findings. 


Function 


•H 
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•Table IM1. Phase- IM Routine/Subroutine Directory (continued) 

r T 1 

| Routine/Subroutine | Function | 


j GNSBAR 


j Handles a subscripted argument. 

I 

1 

1 

| GNSBRT 

(IP) 

1 

(Examines all three arguments of SUBSTR 
(type exactly. 

i 

1 

and calculates the resulting ( 

1 

1 

j GNSFMS 

(IP) 

i i 

(Replaces references to SUBSTR in text by a reference tc another | 

| entry giving detailed information about the arguments. Places a j 

(description of the resulting string in the text. | 

i i 

( GNTRID 


i 

| Scans source text. 

i 

i 

| GNXTRP 


1 

|Gets next triple. 


1 

| LSTl (IN) 

i 

1 

(Calculates type and length of result of 

i 

string operation. | 

l 

| SUBSPT 

L 

(IN) 

1 

(Adds type of array to stack. 

- - X 

_ j 


•Table IT. Phase IT Post-Generic Processor 


T T 

Main Processing 
Routine 

+ 


Statement or Operation Type 


h 

| Scans source text 

[ 

j Analyzes type of function detected 

h 

l< 

h 


Subroutines Used 


PGTXSC 


PGT01 , PGEOB , PGECP 
None 


PGFUNC 

PGFNCP 

PGBUYS 


+ - 


Completes function handling 


PGNEXT 

PGBUY 


(Detects 'chameleon' temporary ref- 
| erences and deletes BUY and BUYS 
j triples where possible 

f 


■ + 




(Deletes 'chameleon' reference in an 
(assignment triple and alters the 
(argument triple to indicate an 
j intermediate result 

f 


PGPASS 


None 


+- 


| Deletes all other references to 
j 'chameleon' temporaries where 
j applicable 

L 


PGFNCM 


PGBYAS, PGSELL 
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Table IT1 . Phase IT Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 

f 


Function 


PGASS 

PGBYAS 

PGBUY 

PGBUYS 

PGEOB 

PGEOP 

PGFNCM 

PGFNCP 

PGFUNC 

PGNEXT 

PGSELL 

PGTXSC 

PGT01 


Deletes ' chameleon ' assignments. 

Processes 'Buy Assignment' triples. 

Processes BUY triples. 

Processes BUYS triples. 

Deals with End of Text Block conditions. 

Processes end of program marker. 

Replaces 'chameleon' reference by an intermediate result where 
applicable. 

Processes function prime marker. 

Analyzes function, and determines the type of processing required, 
Gets the next triple in source text. 

Processes SELL triple. 

Scans text. 

Determines action to be taken for a significant triple. 


• Table IX. Phase IX Pointer and Area Checking 

r t T" 

| jMain Processing) 

| Statement or Operation Type j Routine j 


Subroutines Used 


f- 

|Main scan routine 

L 


’ + 

| TEST, ERASER 

-X 


BUMP 


Table IXl . Phase IX Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 

+. 


Function 


h 

| BUMP 

I 


| TEST 
ERASER 


| Scan routine. 

I 

| Tests operands for pointer and area data types 

I 

| Processes bad statements. 
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# Table JD. Phase JD Constant Expression Evaluator 
r 


T T 

| | Main Processing 

| Statement of Operation Type | Routine 


h + 

(Initializes phase, gets scratch | INIT1 

| etc. | 


Subroutines Used 


None 


h * — I 

| Scans text, for constant triples | SCANT 

(. i 

| Handles stacking/unstacking of | STAKOP 

| operands j 

L X 


+ - 


MORTXT, PREFIX, CCNCAT 


UNSTAK 


Table JDl . Phase JD Routine/Subroutine Directory 


r T* 

| Routine/Subroutine | 


Function 


CONCAT 

INIT1 

MORTXT 

OUT 

PREFIX 

SCANT 

STAKOP 

TRYFLAG 

UNSTAK 

UPTXT 

WINDUP 


Detects constant string operands, performs concatenation, makes new 
disk entry, and puts ref. in a slot for stacking. 

Gets scratch core for the stack, initializes slots and switches. 

Gets next text block, resets pointer. 

Puts out error message and aborts compilation if stack is not emp- 
tied . 

Detects unary prefixed constant, makes new list entry and puts ref. 
in a slot, for stacking. 

Main scan routine. 

Push down stack handler. 

Tests if stack is full, and if so, aborts. 

Moves entry from the stack. 

Updates text pointer. 

Releases scratch core and returns control to the control phase. 
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Chart 06. Aggregates Logical Phase Flowchart 


***** 

*^<S * 
* Bl* 


*****q 1**** ****** 

* STRUCTURE JI* 

*-*_*_*_*_*-*_*_* 

* STRUCTURE * 

* PREPROCESSOR * 

* * 
* ****** *********41 


*****C I********** 

♦STRUCTURE JK^ 
*-*-*-*_*_*_*-*«* 

♦ STRUCTURE * 
♦PROCESSOR SCANS* 

* DATA CHAIN * 
***************** 


.* ANY 
*. DEFINED 
*. ITEMS 


***** 
*07 * 
* Al* 


***** 0 2 ********** 
♦DEFINED JP* 


***** 
*r»7 * 

♦ AI* 
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Chart JI. Phase JI Overall hogic Diagra.ri 


*<»* **0 1 ********* 


**************** 


*****Q2* ********* 


***** 04 ********** 


***************** 


«****£ 3 ********* 


»*♦. LAST CHAIN . * 


***«Dl*l** ****** 

* 

SET » 

NEXT ITEM * 


*El *i******** 


***** 02 ********** 


***************** 


NO .* IS *. 

ITEM DATA .* 
♦.VARIABLE •* 

*. •* 

*. .* 

♦ YES 


****Q4********** 


*****F 3********** 



*****F4********* 


**** „ * *. 

* * NO « ♦ STRUCTURE *. 

* 01 *X...»*. OR ARRAY 

* * X ♦. .♦ 

**** . *. . * 


# * *« **** 
.* *« NO * * 

*• ADJUSTABLE X* D1 * 


*****j 2* ********* 


. * *. NO 

*. ADJUSTABLE • 

*0 • * 


*****H4* ********* 


*****p 5 ********** 


***************** 


*****05********** 
* * 

* PUT STRUCTURE * 

ON CORRECT ♦ 

* AUTO CHAIN ♦ 

* + 
***************** 


***************** 


***************** 
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Chart JK. Phase JK Overall Logic Diagram 


AAAA 
♦ * 

♦ A2 * 

* a 
**** 



.* END A. YES 
*• OF CHAINS • *•••• 

* *• •** 

*• • * 

* NO 


Cl 


!. oii 


*. V£ S 
H •*•••• 
NEO 
• A 

*. . a 

* NO 


>XA 


+++**£2+++**+ 
* 

GET BASE 

a 
A 


<x£hn> 


«* 

. i* 

* YES 


MAP BASE 


AAAA 

* A YES •* 

J A1 JX....A.JUI 

AAAA 


***** 03 ********** 


STBASE 

aaa* 


*• NO 

ioBSIftW* 


*mt 


e x* 


AAAAAQ5AAAAAAAAAA 

* GENERATE * 

* CODE TO * 


OEF 


ITEM 




IS *. VES 

.A A. 

• * ANY A. NO 

A 

A 

HAP * 

...X*'* 0R C ^ 
*. ? 

EM A .* 

tUCTURE.* 

••• x *-*«ffHftftE.* 

a X* 

A 

STRUCTURE * 


A. ,A 
* NO 


*. .* 
A, •* 

* YES 

AAAA . 

* • • 

* F2 *. )U 

* * . 

AAAA X 

F2* 


TEMP 

•# • 

* NO 


AAAA 
* * 

* F3 *••• 

* * . 

AAAA • 

X 

****AF3AAAAAAAAA 

* 

k YES * 

^ t X* MAKE AN RDV 


aaaa 
* * 

* E4 * M 

* * 
aaaa 

EA* 


A. ,* 

A. . • 

* NO 
AAAA , 

* * » 

* FA A.X* 

♦ * 

**** 


, ***A 

* * * 
Al l 

SETOVSt SETOVA aaaa 

A**a*e 5 AAAAAAA*** 

* RELOCATE * 

* BY DOPE * 

■r x : v i# : 


. * 


FA 


• *e 


A. 


• A 


.* IS 
AN ROV 
REQUIRED 

*A. o* # 

A, .A 

YES 


* * 

* F5 * 

* * 
aaaa 

**** 

* * 

. X* Al A 
♦ * 

aaaa 




aaaa 
* * 

A K5 A 
A A 

AAAA 


G2 «. 
.* IS * 
.A ROV 
A* REQUIRED 


A. YES 

ARRAY # A mm 
.A 


J1 *• 

• A A. 

.A ♦# YFS 

*•*. sc f 1l xe *8 .* : 


*. • • 

A YES 
, AAAA 

• a * 

• a XA F3 A 

A A 
AAAA 


.A A. YFS 

.XA. ADJUSTABLE .*•••• 
*• 7 • A 


AAAA AQ 3AAAAAAAAAA 

AAA A AQ4 A A AAA AAAA A 

A A 

A MAKE A 

* MAKE OVD * 

* RDV AND * 

A A 

* CHAIN * 




YES 

’ *o 

A. 


AAAA 
A A 

A F2 A 
A A 

AAAA 


AA AAH 3AAAAA AAAAi 

GENERATE 

LIBRARY 

siSbbMt 


AAAA 

S * * 

, c XA F9 A 

A A 

AAAA 


AAAA 
¥ A 

A Al * 
A A 
AAAA 

AAAA 
A A 
A Al A 
A A 
AAAA 


*A J2AAAAAAA 
MAP ARRAY 


ALVACA K 

AAA AA," * 

A G 


AJAA* 


* NO 


****K1 ********* 

ADJUSTABLE 
STRING 


*••* 

• • 

* F* * 

* * 

• **• 


RATE 
E TO 

RFLQCATE nv 

* VDA * 

* ACCUMULATOR * 

******** ********* 


*. , 


j NO 

J5* ’*. 
>* IS * 
RDV 

REQUIRED 


AAAA 
A A 

X* EA A 
A A 

AAAA 


AAAA AK3AA AAA AAA A A 

* GENERATE * 

* CODE TO A 

■X* RELOCATE * 

A BY VDA • 

A ACCUMULATOR A 


AAAA 
¥ A 

A KS A 


*A AAAKS A A A AAAA AAA 

A GENERATE A 
A CODE TO a 
A SET ITEM A 
A ADDRESS IN a 
* ROV * 
AAA AA AAA AAAA A A AAA 


AAAA 
A * 

A E4 * 
A 4 

AAAA 
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Chart JP 


Phase JP Overall Logic Diagram 


(■•*•*41 *•*•**••*« 


.* * 
. * END 
,X*. OF CHAIN 


, * DOES *» 
YES .* DEFINED *. 
...*, STRUCTURING . 


X...*, STRUCTURING 
. *. MATCH .* 


***•44 ****•••** 


*••*.*•*****•••• 


) .* DEFINED *. 
,*. ITEM A SUBSET.* 
*. OF BASE o* 


•CORRESPOND-*. N 
ENCE .*. 

•.DEFINING .* 


. *• 

CZ *. 

*’ ‘dE^InED*' 

*, STRUCTURE. 

*« .* 

* # # * 

* NO 


♦* A LABEL .* 
*• •* 

*• • * 

* NO 


JP2f*0 • *• 

B3 *• 

« * *. 

• * IS ♦* YES 

* • <* X* ITEM STRUCTURE* *• • • * 


JP541 • ♦* 

R4 *. 

. * ARE *e 
.* DEFINED *• YES 
ITEM ANO BASE* ♦«* • . 
X **$AME data** 

* *• TYPES* * 

« *• «.* 

**** * 

* ***** 

* BA * * 

* * FA *X* * 

***** * * 

**** . NO 


jp?r .♦. 

,....X*. ITEM .* 

X *. ADJUST- . • 

. *. ABLE .* 

. *. . * 

**** * YES 

* * . •*•• 

* B5 * . * * 

* * .. X* A1 * 

**** * * 

*••• 


.* IS *. .* *, . * *r 

.* DEFINED *. YES .* IS BASE «. YES .* IS BASE *. YFS 

X*. ITEM .*....... .X*. A STRUCTURE .* PACKED .*.... 


. 

D3 *. 
.•BASE OR*. 

.* DEFINED *. 


JP543 .*. 

El *. 
.* IS 

YES .« BASE 
...*. COOED 

. . *. ARITH 


EZ *. 

YES • *° *DE^ InED** *• 
....*. ITEM CODED .< 
*. ARITH .* 


****05********* 

* « 

,.X* ERROR * 
* * 


GETCLS .*. 

EB *. 

**** ,* ARF *. 

* * YES .* DEFINED *. 

* B5 *X. ...*. ITEM AND .*X. 

* * *. BASE SAME. * 

**** *, TYPES.* 

*• . * 


****p] ********* 

* * 

* ERROR * 


F2 *. 

.* IS *, 

S .* DEFINED *. 
ITEM VARYING .* 
*. STRING .* 


.* *. .* ARE *. 

.* IS *. YFS » *STRUCT E1E-*. 

, BASE .* X*.MENT? STRINGS.* 

*. STRING .* *. OF BASE .* 

*. . • *. TYPE .* 

*. . * *. .* 

* NO * NO 


.*. 

.*ll BASI*. 

• *A STRUCTURE*. 

*. OF PACKED .*X. 
*. STRINGS .* 


VC “t ^ 

. ** DEFINED YES 
». ITEM DIME NS- .*.... 


.* IS *. NO 
...X*. ARRAY .*... 
*. PACKEO .* 

*, ,* 

*. . * 

* YES 


* ** «g 4* <i *** * ** * 

* 4 

* ERROR * 

4 

*************** 


• ♦IS BAS §*• 

NO .♦ A STRING *♦ 
.#•*. OP SAME •> 


Output ^Sn* a ppropr?/ 
error message 


.* BASF *. YFS 
*. ^DIMENSIONED^.*.,.. 


♦ J3 I *”* 

.*' baIf "*. NO 
x*. ^subscripted^.*,.. 

* *. „ *" 

*• • * 

* YES 


• ♦• 

K 3 *o 

**♦* 4 *IS BASE** 

* * VPS • *0R OFFINEO ♦ * N 

* A1 *X.*c**cITEM AO JUST- * ** 

* * X ♦* ABLE *♦ 

**** * *- „* 


..X*S* aJrAY 

*. PACKED . 

*. , * 


•***j 5* ******** 

■ X* ERROR * 


*****^t^. ********** 

♦COMPARE DEFINED* 
♦LENGTH AND POS * 
K* WITH BASE ♦* 

* L EN GT H * 

* ♦ 
***************** 
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•Table JI. Phase JI Aggregates Structure Processor 


r 

j Statement or Operation Type 

i 

"T T 

jMain Processing! 

j Routine j Subroutines Used 

j. 

i 

1 

j To re-order the STATIC AUTOMATIC 
jand CONTROLLED chains and to proc- 
j ess structures 

i - 

T 

| SCANA 

1 

1 

T 

| MAP, MAPA 

1 

1 

4- 


r 

| To scan down the COBOL chain for 
j COBOL-mapped structures 

L ........ 

1 

| SCAN 

1 

J. 

1 ... 

| MAP 

1 

4 


r 

| To transfer items from the COBOL 
j chain to the appropriate AUTOMATIC 
| chain 

I 

1 

| RECHAN 

1 

1 

_|_ . .. . . 

T 

| None 

1 

1 

1 


1 

| To transfer control from IEMSI to 
j IEMJM 

t .. _ ... 

1 

| TERMIN 

1 

_4_ 

1 

| None 

1 

+ 


1 

| To map COBOL structures 

i 

1 

| MAP 

| 

| NXTRFI, NXTRF2 

4 .... . 


1 

| To check non-COBOL structures for 
j constant length 

1 . ... ...... 

1 

| MAPA 

1 

_4_ 

| None 

i 

4_ ... ... ... 


1 

| To find the next member of a struc- 
j ture 

1 

| NXTRFI 

1 

_4_ 

1 

| None 

1 

4_ .. 


| To find the next element of a 
| structure 

L 

| NXTRF2 

1 

.X _ 

1 

| None 

1 

x _ 

_ .1 


•Table JI1. Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 

I- +- 


Function 


MAP 

MAPA 

NXTRF1 

NXTRF2 

RECHAN 

SCAN 

SCANA 

TERMIN 


To map COBOL structures 

To check non-COBOL structures for constant length 
To find the next member of a structure 
To find the next element of a structure 

To transfer items from the COBOL chain to the appropriate AUTOMATIC 
chain 

To scan down the COBOL chain for COBOL-mapped structures 

To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process 
structures 

To transfer control from IEMJI to IEMJM 
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•Table JK . Phase JK Aggregates Structure Processor 


L X X J 


T T 

Main Processing 
Routine 

+- 


h- 

Scans AUTOMATIC , STATIC, and 
CONTROLLED chains 


Statement or Operation Type 


Subroutines Used 


CHNSCN 


h 

Processes DEFINED items 


+- 


ADRDV, CHKDEF , MKDVD, MKRDV, 
PROCDT , PROCST , SETBRF, TERMWS 


CHKDEF 


CMPIL1, INOEJ, PROCDT, PROCST, 
STBASE 


|. 

Processes structures (calculates 
offsets, multipliers, sizes, align- 
ments and padding; generates object 
code) 


+- 


+- 


PROCST 


CMP1L1, INOBJ , ELSIZ 


J. 

Processes arrays (calculates rtiul- 
tipliers and generates object code 




PROCDT 


CMPIL1, INOBJ, LOADCN , SP54 


I- 

Calculates storage offsets for 
adjustable items in structures 


PS25 


CMPIL1 


h 

Calculates storage offsets for 
adjustable arrays 




+■ 


ALVACA 


CMPIL1 


y 

Calculates storage offsets for 
adjustable strings 






ALVACI 


CMPIL1 


(• 

Generates code to initialize string 
dope vectors for arrays of varying 
strings in structures 




+- 


SVARY 


CMPILl, INOBJ, IPDV, VOEJC 


y 

Generates code to initialize string 
dope vectors for varying, non- 
structured arrays 


+- 


VOBJC 


CMPIL1, INOBJ, IPDV 


y 

Generates code to calculate the 
starting address of storage for 
overlay defined items 


-+- 


STBASE 


CMPIL1 


j. 

Adds text, skeletons to the output 
stream 


4 


CMPIL1 


None 


y 

Makes dictionary entries for dope 
vector descriptions 


4 


MKDVD 


ELSIZ 


j. 

Makes dictionary entries for record 
description vectors 


4 


MKRDV 


MKCNST, CMPILl 


(. 

Generates code to set the address 
in a record description vector at 
object time 


4 - 


ADRDV 


INOBJ, CMPILl 


4 


(■ 

Calculates the length and alignment 
of scalar data items 

j. + 

Sets offsets for BASED variables | BASED 


4 - 


ELSIZ 


None 


4 - 


None 
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Table JK1 . Phase JK Routine/Subroutine Directory 

r t 

| Routine/Subroutine | Function 

j. -f 

| ADRDV (JL) [Generates addressing code for AUTOMATIC RDVs. 

I I 

| ALVACA (JL) [Calculates storage offsets for adjustable arrays. 

I I 

| ALVA Cl (JL) [Calculates storage offsets for adjustable strings. 

I I 

| BASED [Sets offsets for BASED variables.. 

| CHKDEF (JM) [Processes DEFINED items. 

I I 

| CMPIL1 (JL) [Adds text skeletons to the output stream. 

I I 

| ELSI Z [Determines size of storage required for structure base elements. 

I I 

| INOBJ (JL) [Initializes object code statements. 

I I 

| IPDV (JM) [Generates code to set up primary dope vectors. 

I I 

| LOADCN (JL) [Generates object code to load object registers with constants known 

j [at compile time. 

j MKDVD j Makes dictionary entries for DVDs. 

I I 

| MKRDV (JM) |Makes dictionary entries for RDVs. 

I I 

| NXTREF/NXTRF1 (JM)|Gets the next structure base reference. 

I I 

| PROCDT (JM) | Processes arrays. 

I I 

| PROCST [Processes structures. 

I I 

|PS25 [Calculates storage offsets for adjustable items in structures. 

I I 

| CHNSCN (JL) | Scans AUTOMATIC, STATIC, and CONTROLLED chains. 

I I 

| SETBRF (JL) [Sets the reference to the current entry type 1. 

II 

| SETDVS | Sets the dynamic dope vector size for non-ad justable structures. 

I I ~ 

[SP54 [Calculates base element multioles. 

I I 

J STBASE (JM) [Generates code to initialize starting address storage for overlay 

| [defined items. 

I I 

| SVARY (JL) [Generates code to initialize string dope vectors for arrays of 

| j varying strings in structures. 

I I 

| TERMWS (JL) [Terminates object code. 

I I 

| VOBJC (JL) [Generates code to initialize string dope vectors for varying, non- 

j [structured arrays. 


r 

j ADRDV 

(JL) 

| 

1 

| ALVACA 

(JL) 


1 

j ALVACI 

i 

(JL) 


1 

| BASED 

I 



1 

[CHKDEF 

(JM) 


1 

| CMPIL1 

l 

(JL) 


1 

| ELSIZ 

I 



1 

| INOBJ 

(JL) 


i 

| IPDV (JM) 


1 

j LOADCN 

1 

(JL) 


1 

| MKDVD 

1 



1 

| MKRDV 

(JM) 


1 

j NXTREF/NXTRF1 

i 

(JM) ( 

1 

| PROCDT 

(JM) 


| PROCST 



| PS25 



[CHNSCN 

(JL) 


| SETBRF 

( JL) 


| SETDVS 



| SP54 



1 STBASE 

(JM) 


| SVARY 

(JL) 


| TERMWS 

(JL) 


| VOBJC 

L _ 

(JL) 

JL 


L 9 8 


Table JP. Phase JP Translator Defined Check 


"T T‘ 

|Main Processing! 
Routine 


Statement or Operation Type 


Subroutines Used 






(Scans DEFINED chain; checks 
j validity 

V 


IEMJP 


GETCLS, GETLTH , STRCMP 




| Checks that two structure descrip- | STRCMP 
jtions are the same and that they j 
jmay be validly overlaid j 

L X 


None 


Table JP1. Phase JP Routine/Subroutine Directory 


r T - 

| Routine/Subroutine j 


Function 


GETCLS 

GETLTH 

IEMJP 

JP8 

JP2 0 

JP200 

JP540 

JP541 

JP542 

JP543 

STRCMP 


Analyzes structure descriptions, and checks that all elements are of 
the same defining class. 

Obtains length of string or numeric field from associated dictionary 
entry . 

Controlling scan of DEFINED chain; checks validity. 

Tests whether defined item is packed. 

Tests whether base defined item is adjustable. 

Tests whether item is a structure. 

Tests whether defined item is coded arithmetic. 

Compares base and defined item. 

Tests whether defined item is dimensioned. 

Tests whether base code is arithmetic. 

Compares structure descriptions. 


Table JZ. Module JZ Compiler Control 

r t t 

| | Main Processing) 

j Function j Routine j Routines Used 

I- + + 

| Reconstructs the phase directory JIEMJZ | RLSCTL, ZUPL, ZEND 

j for the second half of the compiler! | 

I I I 

I Entry to OS/36 0 : BLDL | | 

l . X X 


I 

A 


J 
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Chart 07. Pseudo-Code logical Phase Flowchart 


***** 
*07 * 
* A 1 * 


***** A 1 ********** 

♦SCAN LA* 

*-*-*-*-*-*-*-*-* 

* UTILITY * 

* SCANNING * 

* PHASE * 

***************** 


» • * 

*. . ♦ 

* NO 


***** 02 ********** 
♦INITIAL LB* 

*_*_*-.*_*_*_*_*_* 
. X* CONSTRUCT P-C * 
* TRIPLES FOR * 
♦DYNAMIC INITIAL* 
***************** 


•* STATIC *. YES 
*• INITIAL 
*. . * 


♦****C2 ********** 

♦ INITIAL LO* 

*-*-*-*-*- *-*-*-* 

> X*CON STRUCT DICT:* 

* ENTRIES FOR * 
♦STATIC INITIAL * 
***************** 


***«*Q2 ********** 

*00 EXPANSION LG* 
*-*-*-.*_*-*-*_*_* 
<* EXPAND * 

* DO LOOPS * 

* * 
***************** 


*_*_*_*_*_*_*_*_* 
♦CONVERT EXPR- * 
* ESS I ON TRIPLES * 
♦TO PSEUOO-CODE * 

***************** 


*****F i ********** 

* STRING UTILS LV* 
*_*_*_*_*_*..*_*_* 

* PROVIDE * 
♦STRING HANDLING* 

* FACILITIES * 
***************** 


**** 

* * 

* GI * 

* * 
**** 


Gl *• 

.* ANY *. 

* STRING *• YES 
EXPRESSIONS • *.... 


** * * *G2 ********** 

♦string handl lx* 
*-*_*-*_*-*_*_*_* 
CONVERT * 
♦STRING TRIPLES * 
* * 
***************** 


.X* 


. * ANY *. 
.♦PSEUDO-VARS*. YES 
►. OR MULTIPLE .*.... 
*. ASSIGNS .* 


► X* 


.* ANY *. 

.* IN-LINE *. YES 
*. FUNCTIONS .*.... 


♦****H2 ********** 

♦PSEUDO-VARS MB* 
*-*-*-*—*-*-*-*—* 
CONSTRUCT * 
♦PSEUDO-CODE FOR* 
♦PSEUDO- VAR I ABLS* 
***************** 

I **** 


*«***j2 ********** 


» X* 


, • ♦ 

*• . ♦ 

* NO 


*— *- 

CONSTRUCT * 
♦PSEUDO-CODE FOR* 
♦ IN-LINE FIJNCTNS * 

***************** 


.* ANY *. 

.* GENERIC *. YES 
*. ARGUMENTS ...... 


0 X* 


***«*A 4* ********* 
♦CALLS G FNS ML* 
*- *- *- *_ *_ *_ *_*_* 
PROCESS * 

GENFRIC * 

* FNTRY NAMES * 
***************** 


.* ANY *. 

.* CALLS OR *. 
FUNCTION 
♦REFERENCES.* 


*****94********** 

♦CALLS £ FNS MM* 
*.*_*_*.*_*_*-*_* 
s X* PROCESS CALL * 
*C FN PROCEDURE * 
* INVOCATIONS * 
***************** 


**•**£ 4 ********** 

♦STRING LV* 

*_*_*_*_*_*-*_*.* 
PROVIDE 


♦REORDER STRING. ♦. 
*. BUYING .* 

♦ .CODE .♦ 


. X* 


*****04********** 

♦BUY G SELL MP* 
*_*_*_*_*_*_*_*_* 
REORDER ♦ 

* BUY AND SELL * 

* STATEMENTS * 
***************** 


E3 ♦. 

. * *. 

.♦ ANY ♦. YES 

.^SUBSCRIPTS 

*♦. ,** 

♦ • •♦ 

♦ NO 


*****04********** 

♦SUBSCRIPTS MS* 

-i. *-*_*-*-*-*-♦_* 

CONSTRUCT * 
PSEUDO-CODE * 
♦ FOR SUBSCRIPTS ♦ 

***************** 


->X* 


^ f ON. RFTNS NA* 
*-* -* -*-*-*-* _* 

* MAKE PSEUOO- * 
♦CODE FOR BRAN- ♦ 

♦ CHE S. RETURN .ETC* 
***************** 


. ALLULA f fc.. 
.DISPLAY DELAY. YES 
♦.FREE OR WAIT ...... 

♦. STATEMENT. ♦ 


*****Q4********** 

♦0/S SERVICES NG* 
*_ *-*_*_*_*-*-*_* 
. X* MAKE LIB CALL ♦ 
♦ SEQS FOR DELAY * 
*G DISPLAY STATS* 
***************** 


. ♦. 

H3 *. 

• ♦ *• 

.* ANY *« YES 
*. RECORD- I/O .*..«• 
♦ « . * 

♦. . * 


*****t-j 4* ********* 

♦RECORD-I/O NJ* 
*-♦-*-♦-*-*-*-*-* 
. X* MAKE LIB CALL * 

♦ SEQS FOR RECORD* 

* ORIENTED I/O * 
***************** 


• *§TR E AM- I /O » *, YES 

. open, or 


LC^SF 


****«j4 ********** 

♦STREAM-I/O NM* 
*-*-*-*-*-*-*-*-* 
: X ♦ MAKE LIB CALL ♦ 
♦SCOS FDR RECORD* 
* ORIENTED I/O * 
***************** 


* ANY * 0 
DATA DR i 
FORM AT 
LISTS .’i 


♦SEQS FOR DATA/ * 
* FORMAT LISTS ♦ 

***************** 


***** 05 ********** 

♦COMPILER FNS OB* 
*.*_*_*-.*_*-*_*-* 
♦ PROCESS * 
♦COMPILER FNS G ♦ 
♦PSEUDO-VARI ABLS* 
***************** 


*****05********** 
♦ASSIGNMENT OF ♦ 
*_*_*.*-*_*-♦_*-* 

♦ CONSTRUCT ♦ 
♦PSEUDO-CODE FOR*. 

♦ ASSIGNMENTS ♦ 
***************** 


*****05********** 

♦ RELEASE ♦ 

♦ UT IL IT IF S. ♦ 

♦ I EML A « AND ♦ 


ifAlv 


***************** 


*****05********** 
♦CONVERSIONS OG* 
*_*-*-.*_*- *-*- *-* 
♦EXAMINE OPERAND* 
* AND OETERMINF * 
♦IF DONE IN LINE* 
***************** 


.* *. 

,* IN-LINE *. 
, CONVERSIONS 
♦.2ND PASS n ♦ 


* IN-LINE CODE * 

♦ 2ND PASS ♦ 

***************** 


NO .♦ IN-LINE ♦. 
CONVERSIONS . 
*. 3RD PASS „ ♦ 


***** j5* ********* 

♦CONVERSIONS OP* 
*_*-*-*-*-*_*-*-* 

♦ GENERATE * 

* IN-LINE CODE ♦ 
3RD PASS 


******** 


******** 


****««F ********** 
♦CONSTANTS OS* 
*-.*_*_*_*-*_*_*_* 
♦CONVERT CONSTS * 

* TO REQUIRED * 

* INTERNAL FORM * 
***************** 
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Chart LA. Phase LA Overall Logie Diagram 


+****A1 ********** 

* INITIALIZE * 

♦FLAGS, POINTERS* 

* AND LOAD * 

* ADORESS * 

* • 
***************** 


THESE ROUTINES ARE SCAN 

cWii mn IeVb 

through iemoe. 


♦ * * * * A 3 ** *: * * * * * * * 

♦CONSTRUCT DOPE * 

♦ VECTOR IN * 

♦ WORKSPACE FOR *. 
♦BASED AGGREGATE* 

*********** ****** 


****A^**t ****** 


*************** 


*****5 } ********** 


***************** 


*****B3********** 

♦ MOVE USER ♦ 

♦ TEXT TO A * 

♦ CONTIGUOUS ♦• 

♦ OUTPUT STRING ♦ 

♦ ♦ 
***************** 


3 * MV3 A 

*«***£ 3********** 


***♦ 8 4 ********* 


*************** 


***************** 


***m*0] ********** 


***************** 


***** 02 ********** 


***************** 


***** 03 ********** 
♦ * 

* SCAN FOR ♦ 

, REQUESTED ♦. 

* TRIPLE * 

* * 
***************** 


****04********* 


*************** 


****«£! ********** 
* * 

♦ MARK CURRENT ♦ 


***************** 


5 *SCT 

i****Fl ********** 
* * 

♦ MARK CURRENT ♦ 

* INPUT BLOCK ♦. 

♦ MOT WANTED ♦ 

* * 
***************** 


*****F 3********** 


***************** 


*****£4* ******** 


**************** 


****£5********* 


*************** 


3 *5C 1 I 

****i*Gl ********** 
* * 

♦ MARK CURRENT ♦ 

♦ INPUT BLOCK ♦. 

♦ WANTED ♦ 

♦ * 
***************** 


9 * SC 1 c 

*****H1 ********** 
* ♦ 

♦ MARK CURRENT ♦ 

♦ INPUT BLOCK ♦. 

♦ NOT WANTEO ♦ 

♦ * 
***************** 


**«**Q2 ********** 

♦ UPDATE INPUT ♦ 

♦ POINTER TO ♦ 

» X*RFGISTER STATUS*. 

* BYTFS * 

* * 
***************** 


• *• 

G3 ♦. 

.♦ WAS *o 
.♦ ENTRY AT *« 
,X*.SC11 OR SC12 . 

♦• , ♦ 


*****04********** 

♦ MOVE THE * 
♦CODE DELIMITED ♦ 

S X* BY JMP TRIPLE 

♦TO OUTPUT BLOCK* > 

* * « 

***************** # 


****G«j ********* 


SCK 

«****j i ********** 

♦ CONVERT THE * 

♦ SYMBOLIC * 

♦ INPUT POINTER *. 

♦ TO ABSOLUTE * 

♦ * 
***************** 


*****j2 ********** 


****j 3********* 

K * 

* RETURN ♦ 


***************** 
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chart IB. Phase LB Overall Logic Diagram 



INITIAL PROCESSING 
****qi ********* 

* ENTRY * 

* TO MAIN *. 


****G3 ********* 


Kii f 9h X S RETURN 


»:* itI 

*. ARI 


S *. 
H AN 
RAY .* 


ARRENT 

A* *«*h3** ******* 

t 

» PROCESS 
'INITIAL STRING 



CNSTMK X 

****** ? ********* 

* OUTPUT 

* SN2 AND 

* ASSIGNMENT 

* TRIPLES 

* 

**************** 


****K 3********* 
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Chart LD. Phase LD Overall Logic Diagram 


*** ** A 1 ********** 


ST0006 X 

**<>** B) ********** 

* LOCATE * 

* Initial * 



C3 *. 

.* IS *. 

.* ITEM A *. NO 
...X*. REP .*... 

*. FACTOR .* 

*. .* 

*, . * 

* YES 


* OBTAIN 

* CORRECT ENTRY 

X* ON 

* CONSTANT 


CNSTWK X 

*•***01 ********** 

* corUIct^ntry * 

* ON * 

* CONSTANT * 

:*.,***£tfii2*****; 


ST 9999 X 

•*•*•£]*•***•**•* 

: h * k m lot : 
: g88if25f n : 


*** **F 1 ********** 

* RESET * 

* INITIAL * 

* VALUE * 

* ENTRY * 


G1 *. 

, * *. 

NO .* ENO *. 
..*. OF CHAIN . *X. 

*• •* 

*• • * 

* YES 


fc*+E3*«**+«*** 


***** 04******* 

* HAKjjj SLOT 

: mh f n 


*•**••*•*•*«**** 


ST0006 X 

*****F3********* 

* POINT 
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Chart LG. Phase LG overall Logic Diagram 


LGOOOO i 

****** I ********** 
♦INITIALIZATION * 

* GET SCRATCH * 

* STORAGE FOR • 

* 00 BLOCKS ♦ 


*«***B1 ********** 
* LA * 
♦-A-*-*-*-*-*-*-* 

:- x **lo8S e f^M?ple: 


LGC r 22,C0DE3 

*********** 


LG0013 

***«*C 2* ********* 

* PUSH DOWN 00 * 

* STACK AND * 

...X* INITIALIZE • 

* NEW STACK * 

* ENTRY * 

***************** 


L0P !K.*e».5,**„.* 

*scratEh e s?5rage 


*•*• 

LGPP11 

***** 02 ********** 


*****03********** , 

* SCAN CONTROL * 

* VARIABLE TEXT * X * 

X* AND SET UP X* 

* SKELETON IN * * 

* STACK ENTRY * 


*E1 *.* 

.♦* 00* "*. YES 

*. OR ITDO • ...... 

*. , * 

*. .* 

*. .* 

* NO 


*****E2********** 

* GFNERATE LOOP * 

* CLOSING COPE * 

, X* ANO POP UP *. 

* DO STACK * 


L GOP 15 

***«*p 2* ******** 

* SYH^L ( fc T |EG 

,..X* FOR LOOP 

* CLOSE 


**t**F3 ********** 
* • 

* ANALYZE THE * 
■ X* EXPRESSION IN * 

* ENSUING TEXT * 

* * 
***************** 


.* TO* .BY* i *. YES 
*. OR DO 
*. EQUALS .* 

*• . * 

*, .* 

* NO 


LGC T 24 

•****H2 ********** 

* GENERATE TEXT * 

* TO ASSIGN * 

...X* PRECEDING *. 

* EXPRESSION TO * 

* A TEMPORARY • 
***************** 


H3 *. *****H4********** 

. * *. * * 
.* END OF *. YES * GENERATE TEST * 

. X* ITERATIVE PART.*. ...... X* ANO *„ 

*. OF THIS .* * COUNT CODF * 

♦.SPEC .* * * 

*. .* ***************** 

* NO 


******••••*•*•••* 
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Chart LS. Phase LS Overall Logic Diagram 


***** 
*LS * 
* Al* 


*****A 1 ********** 

* INITIALIZE * 

* WORKSPACE * 

* AMO TEMPORARY * 

* DESCRIPTION * 

* STACK * 

***************** 

**** 


**♦* 

**** *B ^ ********** 

* LA * 

*«*_.*..*_*_*_*_*_* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


EOP2 

***«*£ 2 ********** 

* MARK NEXT * 

* PHASES IF * 

...X* WANTEO A NO *. 

* RELEASF LS * 

* * 
***************** 


***** 
*L V * 
* Al* 
* * 


* SET UP 

* OPERAND 

* DESCRIPTIONS 

* 

**************** 


*****F j ********** 

* DETERMINE * 
♦CHARACTERISTICS* 

* OF RESULT * 

* * 
***************** 


• * STRING *. N 

*• TYPE .*. 

*. RESULT .* 


.* OPERAND *, NO 
,.X*. CONVERSION .*... 
♦ .REQUIRED .* 


E? *. 

.♦ *. 

.♦ IS *. VES 
♦. OPERAND ...... 

♦ A CONSTANT. ♦ 

*. • * 

♦• • * 

* NO 


CDNVT 

♦ ****P2 ♦**♦♦♦♦♦♦♦ 

♦ CALCULATE * 

♦ BASE, SCALE ♦ 

♦ MODE, PREC., * 

♦ OP TARGET * 

♦ ♦ 
*** **■>** ********* 


*****(52 ********** 

* SET UP TO * 

* GET OBJECT * 

* TIME * 

* WORKSPACE * 

* FOR TARGET * 
*** ************** 


**** 

* * 

: X* F3 * 
* * 

**** 


const 

****«F 3********** 

* CREATE * 

DICTIONARY * 

ENTRY FOR * 

TARGET * 

* CONSTANT * 

***************** 


»„X* 


**** . 
• * • 
► E3 *.X. 


STRING 

♦****H1 ********** 

* OUTPUT * 

* NECESSARY * 

. .X* TRIPLFS AND * 

* TEMP * 

* DESCRIPTIONS * 

***************** 


MBS? 


*************** 


temp£ F uO 

FROM TEP 


***************** 


**»**K l ********** 

* ADD ANY * 

* RESULT TEMPS * 

* TO TFMP * 

* STACK * 

* * 
***************** 


***** J2 ********** 

REVERSE * 
1 AN~ 


SOURCE 
TARGE 
TEMP S 
IF NECE 


IN 

ACK 


LRFLi 

***** p 4 ********** 

* GENERATE * 

* PSEUDO-COOP * 

* X* FOR FLOAT *«. 

* EXPRESSION * 

* * 
***************** 


****Q3 ********* 




FXCI 

*****t4& ********** 

* GPNFRATE * 

* PS6UD0-C3DF * 

X* FOR FIXED * 

* BINARY * 

* EXPRESSION * 

***************** 


***************** 


***************** 


*****K 3** ******** 

* GENERATF * 

* P SE UDO-CODF * 

* FOR FIXEO *, 

* DFCIMAL * 

* EXPRESSION * 

***************** 


**«**k; u ********** 

* COMMON * 

* WORKSPACE FOP. * 
TEMPS USED *X 
TF POSSIBLE * 

* * 
***************** 


• X* 
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Chart LV. Phase LV Overall Logic Diagram 


***** 

* LV * 

* Al* 


**** A1 ********* 
INITIALIZE 
COMMON 


****A2********* 

* * 
• ZSTUT1 * 


***** 
*LX * 
* Al* 


.* IS ». 

,* SOURCE *. 
, OPERAND A . 
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THE STR TNG UTU ITIFS. 
THET ARE CALLED BY 
COMPILER PHASES IEMLW 
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****«B3 ********* 
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****A4********* 
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*************** 
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.* STRING *. YES 
*. LENGTH .*.... 
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. * 


*. 


* NO 
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* TRIPLE * 

* * 
*••**•***•*•*•••* 


**************** 


*****C3********* 


*•*•*••****•**•* 
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ANY TMPD 

triples 


LSUT22 .*. 

F2 *. 
.♦STRING *. 
.*DOPF VECTOR*. 
*. RESULT 
*. REQUIRED .* 
*• • * 

*. . * 

NO 


****«£? ********* 
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* STRING 

* 

******** ******** 


*«**H2***« ***** 

* * 

* RETURN * 


STRUT2 

*****QA********** 

•DETFRMINE TVPF * 
•OF STRING DOPE * 

* VFCTOR • 

* REQUIRED * 

* * 
***************** 


*****(•> ********** 

• GENERATE 

• ps£udd-c? _ 

• TO f N I T I At 

• DOPE VFCT 

• IF REQUIRED * 


C3DF * 
ALITE • 
C TOR * 


*****f)4*********: 

• SET DOPE 

• VECTOR 

• REQUIRED BIT 

• ON IN DICT 

• FOR STRING 
**************** 


**«**P4 ********** 

• INCREMENT * 

• RETURN AODR * 

• DEPENDING * 
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• DOPE VECTOR * 
***************** 


****F 4 ********* 

► * 
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¥ * 

*************** 
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Chart LX. Phase LX Overall Logic Diagram 


***«*A1 ********** 


* INITIALIZE 


***************** 


**►** 61 ********** 
* LA * 

*-«_*_*_*_*-*•*-* 
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* * 
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* * 
***************** 
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* OF RESULT * 

* * 
***************** 
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♦ • .♦ 
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*** **H1 ********** 
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***************** 


*****£ 2 ********** 

* SET FLAGS * 

* ETC. FOR ♦ 

* OTHER TRIPLE ♦ 

* TYPES ♦ 

* * 
***************** 


*****£ 2 *** ******* 
* * 

* MOVE TRIPLE * 
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* * 
***************** 


♦****E 3********** 
* * 
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* OPERAND * 
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* * 
***************** 


*****£ 3 ********** 
* * 

* SET OP * 
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* * 
***************** 


*****H2* ********* 
* * 
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* * 
***************** 
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» TRIPLE 
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♦• .♦ 
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***************** 
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***«*E5 ********** 
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* PSFUOO-CODE * 

,„„X* FOR * 

•AND-OR-E XCL. OR ♦ 

* OPERATION ♦ 
***************** 


*** **p4 ********** 
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♦ PSEUDO-CODE * 

♦ FOR *. 

♦ COMPARE ♦ 

♦ OPERATION * 

***************** 
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*****p 5********** 

* RELEASE ♦ 

* ANY TEMPS * 
, • • X* USED FROM * 
X ♦ TEMP STACK * 


***************** 


***«*G5 ********** 
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♦ CREATED * 


***************** 


LENGTH 
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*. a * 


*. • * 
♦• •* 

* NO 


«*** , 

IB1 X 

*****K2 ********** 
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* * 
***************** 
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Chart M2. Phase MB Overall Logic Diagram 
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MBD012 
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*. .* 
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***************** 
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**•**£2 *****•«••* 
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FI 


*. 


*. 
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*. . * 

*. .* 

*. •* 

* NO 
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*. PSV SNITCH .*.... 
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* SET LEVEL AND * 
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***************** 


• *• 

D3 *. 
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♦• • ♦ 

♦• •♦ 
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. **** 

• ♦ ♦ 
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**** 
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* TO SCAN FOR * 
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***************** 
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**«**F 3 ********* 
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...X* START 
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**************** 


• ♦ 


• *• 

Gl ♦ . 

4 

PSEUDO- 
VARIABLE 
♦.ARGUMENT 


*. 


**** 

* 4 

* B1 * 

* * 
4**4 


# * 

» • ♦ 

♦ NO 


.♦ 

» • ♦ 
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..X^ B1 ♦ 
• * 
**** 

mbc 1 ^" 

44444Q2 ********** 

♦ MAKE ENTRY ♦ 
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...X* ARGUMENT. ♦ 
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***************** 


1311 X 

*****F4********** 
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<* TMPOS FROM * 
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********41******** 


MB1340 

*«***G5 ********** 

♦ RESET MULT ♦ 

♦ ASSIGN AND ♦ 
„«X^ PSV SWITCHES* ♦ 

♦ CLEAR STACK ♦ 

♦ * 
************1***** 


PSEUDO- ♦. 
VARIABLE .1 
TMPD .♦ 

♦• • ♦ 


♦ RELEASE ♦ 

♦ I EMMBt IEMMC ♦ 

***************** 


**** 

* * 

* F4 ♦X.c 

* * 
**** 


**** 

♦ 

♦ J4 

* 

***• 

MBI 32r 


***j4********** 
* * 

* GENERATE CODE * 
, ♦ FOR PSEUDO- ♦ 

* VARIABLE * 

* * 
***************** 


***** 
*MD * 
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Chart MD. Phase MID Overall Logic Diagra.ii 
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*. .* 

NO 


X 

.*. 
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.* IS *. 
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*. IGNORE .*.... 
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*. . * 

*. .* 

NO 
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». TRIPLE .* 
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*. TRIPLE .* 

*• . * 


LFARIM .*. 

C2 *. 

. * *. 
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...X*. IT ADOR 

*• .* 

*. ,* 

*• . * 

* NO 

. **** 

• * * 
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* * 
*•** 

LFIGN 

02 *. 

.* IS *. 

.* IT AN *. YES 
...X*. IN-LINE 

• .FUNCTION . * 

*. . * 

*. ,* 

* NO 

. *•** 

. * * 

..X* Bl * 

* • 

***• 

LFSPEC .*. 

E2 *. 

• * *. 
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LFA 5ii 


**C3********** 

* MAKE ENTRY * 

♦ IN STACK * 

X* MODIFY SCAN ♦. , 

♦ PARAMETER * 

* * 
***************** 


****0 3*********: 


**««*£ 3*********! 


♦. FUNCTl. . - 

*• .* 

*. ** 

* NO 

. **** 

* * * 

••X* 61 * 

* * 

**** 

*. 


* NO 


5 

• *. 

G I ♦ • 

.♦IS ♦. 

IT AN ♦• YES 
♦END-OF-FIWCTION*.... 
*. TRIPLE .♦ 

♦* •♦ 

*• . ♦ 

♦ NO 


.♦ IS IT ♦. YFS 
.X*. AN IN-LINE •♦.... 
♦• FUNCTION .* 

♦• •♦ 

♦. e ♦ 

♦ NO 

• ♦♦♦♦, 

. ♦ ♦ 

•• X* Bl ♦ 

* * 
**** 


.♦ IS IT *. YES 
. X*. ENO OF AOOR .♦,... 
♦.FUNCTION .♦ 

♦• • ♦ 


Ascription * 

OF ARGUMENT ♦• 
INTO STACK ♦ 

* * 
***************** 


♦ PRODUCE ♦ 
X* APPROPRIATE 

♦ IN-LINE CODE ♦ 

♦ * 
***************** 


LFMOVE 

*****34*********' 

♦ MOVE COOE 

♦ TO OUTPUT 
RESET SCAN 

♦ PARAMETER 

♦ 

**************** 


***** 
♦ME ♦ 
♦ Bl ♦ 
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Chart ME. Phase ME Overall Logic Diagram 


♦OBTAIN SCRATCH ♦ 

* storage, set ♦ 

:****&5k&!..**: 


* PHASE LA ♦ 

*-*-*-•-*-*-*-*-* 

* SCAN FOR ♦ 

: liters?' : 

*•****»**••*««**• 


;** **84********* 


RE.* IS IT ♦. 

,*. IGNORE . 

♦.OR DOUBLE. ♦ 
♦.COMMA. ♦ 


♦ PLACE SECOND 

*: ,n? p o e « 


.il!* •*♦. 


.♦SUBSTR ♦, 

. INDEX, UNSPEC*. YES 


♦.ABLE .♦ 

♦. . * 

♦ NO 


El ♦. 

.♦IS ♦. 

.♦ IT AN *. YES 
. END OF ...... 

***¥rIPL??*** 

* NO 


*****D3 ********** 

: rayzis?- : 

X* SET ARGUMENT ♦ 
♦ SWITCH ON ♦ 


**•**£ 3*******+** 

♦ UPDATE STACK. ♦ 

♦ SET CFUG-2. * 
X* SET ARGUMENT ♦ 

♦ SWITCH OFF ♦ 


.♦ IS ♦. 

NO .♦ IT A ♦. 
...♦. DICTIONARY .♦ 
♦, REFERENCE. ♦ 


♦ ***F 4********* 

CONSTRUCT 
TDB FROM 
TMPDS 

*************** 


***************** 


• *• 

FI ♦. 

.» IS IT *. 
.♦ARGUMENT TO*. YES 
*. ONE OF THE .*.... 
♦.RELEVANT .* . 

*. FNS .* 

*. .* X 

♦ NO **♦* 


. * IS *. 

.* IT FNO *. NO 
*. OF PROGRAM .*.... 
*. TRIPLE .* . 


****«F 2 ********* 


«****F5 ********** 


***************** 


.* IS *. NO 

*. CFLAG-2 .*... 

*. . * 

*. .* 


* CONSTRUCT T08 * 

* FROM TMPDS. * 

. X*CHECK ARGUMENTS*. 

* IN PSEUOn- * 

* VARIABLE CASE * 
***************** 


*****$<,•* *•****«• 

* INSPECT * 

* ARGUMENTS * 
X* AND PROOUCF * 

* APPROPRIATE * 

* IN-^INE CODE * 


*****H2********** 

* RESET CFLAG * 

* FROM STACK. * 

* MOVE TRIPLE * 

* TO OUTPUT * 


•****j 2 ********** 


***************** 


**«**HA ********* 


*****J* ********** 
* * 

* IF CFLAG*2 * 

* SET ARGUMFNT * 

* SWITCH OFF * 

* * 
**•**••• ********* 
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cnart MG 


Phase MG Overall Logic Diagram 
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***************** 
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***************** 
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**** 

* * 
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**** 

♦ o 


***************** 


*****03********** 


* * 

» •* 

* NO 
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* * 
**** 
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**** 
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*. TRIPLE .* 
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******** 
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, **** 
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**** 

LFE0F2 .*. 
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X 
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Chart MI. Phase MI Overall Logic Diagram 
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* LOAD PHASE MJ * 

* AND * 

♦BASE REGISTER. * 
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**** 
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LF 6 S£ 
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LFNOVE 
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Chart MK. Phase MK Overall Logic Diagram 
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Chart ML. Phase ML Overall Logic Diagram 
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Chart MM. Phase MM Overall Logic Diagram 
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Chart MP. Phase MP Overall Logic Diagram 
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* A2* 


MPA A X 

*****04********** 

♦ BUYX TRIPLE. * 
♦CHANGE TO BUYS® ♦ 

♦ SET BUYX FLAGt *« 

♦ IF CURRENTLY * 

**** 

♦ * 

* C A ♦... 


C3 ♦. 


YES ♦ GENERATE ♦ 
.♦••••.•••X* TRIPLES FROM *. 
* * SELL LIST * 

* * 
***************** 


***************** 


***************** 


MP23 X 

*****£ 1 ********** 

♦ SCAN ♦ 

♦ TEXT * 

♦ WITHOUT ♦ 

♦ MOVING ♦ 

♦ IT * 

***************** 

.SWITCH ON 
•APPROPRIATE TRIPLE 


MP31 X 

*«***P1 ********** 

* BUYS FN ARG. * 

* MOVE BUYS-BUY * 
♦TEXT TO OUTPUT.* 

* REMOVE FROM * 

* STACK * 

***************** 


• * *• 

NO .* OUTERMOST 
,..*. BUYS 

*. TRIPLE . 


MP27, MP29,. 

HP3« X 

«****p 2*** ******* 

♦SUBSPT t ASSIGN.* 

* MOVE ANY SDV * 

* LENGTH CODE *. 

* TO OUTPUT * 


>* BUYS. *. YES 
„ TEMP ADJUST 
*• STRING •* . 


*****03********** 


T hut, * 

* MOVE TRIPLE *. 

* TO OUTPUT * 

* * 
***************** 


«****H1 ********** 

* * 

* RESET INPUT * 

* POINTER TO ♦. 

* OUTER BUYS ♦ 

* * 
***************** 


***************** 


• A PPROPRt ATE® TRIPLE 


•****J3«*** ****** 
* * 

* BUY. * 

* REMOVE TRIPLE * 

* FROM TEXT * 

* * 
***************** 


MP86 X 

*****j 4* ********* 

* BUYS. ♦ 

♦REMOVE BUYS-BUY* 

* TEXT FROM *« 

* OUTPUT * 

* * 
***************** 


****** 3 ********** 
* * 

REMOVE BUYS ♦ 
FUNCTION * 
ARGUMFNT FROM * 
* TEXT * 

***************** 


■ X* 
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BEGIN X 

♦•***A2******« 

* LOAD 

S "W- 

* INITIALIZE 


**** * 

* * * 

* B2 *.X* 

* * * 

*•** 9 

X 

*****B2 ********** 

* SCAN FOR * 

; feni 0 : 

•END OF PROGRAM ♦ 

• • 

***************** 


b BEEN .* 
*• FOUND* • 


****************: 


K* PR I HE t • 

: QR ?m c J ,PT : 

•••»••<.»•****••** 


* CONVERT IT 
<* TO FIXED 

* BINARY 


i****GI *4****** 

' ienvIrJSnhent 


.* IS IT *. 

A .* 

*. SUBSCRIPT.* 


.* OF^IeT *. YES 
*. KNOWN AT .*.... 
*. COMPILE .* 
♦.TIME .* 

•* • * 

* NO 


• • *» 

•• IS *• YES 
•• MULTIPLIER ••*... 
•A CONSTANT.* 

*• • * 

*• i* 

* NO 


* FOR OFFSET * 
•••X* IN CONSTANTS * 

* POOL * 

* * 
***************** 

• ***• 

• * • 
..X* E2 * 
• * 
•**• 

SBS02B 

****** 04 . ********** 

* MAKE ENTRY * 


***************** 


*****j i ********** 

ENVIRONMENT Sx* 
* * 

* * 

***************** 


H2 *. 

o . + subIIript**. 
.*• COUNT *• 
*. CORRECT .• 


C M ’l 

I SUBSCRIPT l 
*. NESTEO .* 


SBS05 X 

*****H3********** 

* GENERATE CODE * 

* TO MULTIPLY * 

* SUBSCRIPT BY *X. 

* MULTIPLIER * 

* • 
**•**•••*•**•••** 


3 e * IS *. 
.*. MULTIPLIER . 
*„ A OR 8 .* 


*. ,* 
*. . * 

* NO 


S8SP29 X 

a********** 

• GENERATE CODE * 

* TO ADD * 

,...* SUBSCRIPT TO * 


**** .* *. 

* * NO .* IS *. YES 

* E2 *X....*. SUBRG .*.... 

* * *. ACTIVE .* 

***• *. . • 

*. . * 


SBSBRN 

**«**K4* ********* 

* GENERATE CODE * 

* TO CHECK * 

.-.X* RANGE OF *. 

* SUBSCRIPT * 

* » 
****••*••*•*••*** 
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Chart NA. Phase NA Overall Logic Diagram 


***** 
♦NA * 
♦ A2* 


, X* 


LA 

*- *- *- *- *- *- *-*- 
♦ioSkS&S 1 triple 
2 ** 1 ** 6 **!** 


**** 

* * 

* B3 ♦. X 


**** 

* * 

* A4 ♦ . 

* * 
**** 


1 ********** 


****«£3 ********** 

* MOVE * 


* . . .DELETE. _ * 

♦ GET NEXT ♦ 

* ♦ 


♦ GET NEXT ♦ 

* * 


.*. 

C2 ♦. 

. * *. 

S .* PROC PRM ♦. 
.♦•OR BEGIN PRM .* 
*, 


***************** 




• ♦ 


► MASK *. YES 
AS OPERAND •♦•••• 

*• o ♦ 


B* ♦. 

.* IS ♦. 

•♦ OPERAND A ♦. NO 
♦ . BIT STRING .♦... 
*, ( * 

♦• .♦ 


OUTPUT P/C TO 
BRANCH ON 
MASK TO LABEL 


NABCin 

*****p«^«*** ****** 

::m.*-.-*-L v ** 




* YES 


NAB012 X 

***** 0 ********** 

♦ OUTPUT P/C TO ♦ 

♦ COMPARF BIT * 
....♦STRING TO ZERO ♦ 

♦ ANO BRANCH ♦ 

♦ IF EQUAL ♦ 
***************** 


02 ♦. 

* 

E0P2 


♦• - 
♦• 

.*" 


*****03*1******** 

* 

* 

♦ X., 


***** 95 ********** 


DUTPUT 

rfwrr 


***** 
*NG * 
* * 1 * 


E2 *. 

* 

RETURN 


*. YES 

•*•••• 

. * 


RETURN 

E 3 *. 

,* * 
.* VALUE 
...X*. RETURNED 
*. 


VARIOUS 
TYPES 
. RETURNEO 


******•**••*•*•*• 


*»***E ;•**«•***** 

♦GIVE EACH ENTRY* 
♦POINT A SWITCH * 
,X*yALUE AND OUTPT* 
*C05E TO BRANCH * 
♦ON SWTCH VALUES* 
******** **•*•••** 


E2 

I 

.1X1 


*. 

*, 

P 

, * 


•LOAD REG 1 HI 1 
* ADDRESS OF *. 
•LABEL, AND CALL* 

***•**•****£***** 


0 F t8 l 




*•** 

* * 

... X* A2 * 
* * 

**** 


***************** 


G2 *. 

• * *. 

.* GOTO, *0 Y 
*.G0O6 OR GOLN .*. 

*. . * 

*. . * 

*. .* 

* NO 


G3 * 

» 

GOOB 


* OUTPUT 
♦PSEUDO-CODE 
<* BRAN ' 


3-COOE T 
ANCH TO 
LABEL 


REVERT 

•****jl* 

♦ OUTPUT PSEUOO- 


* COOF TO SET « 

* REVERT BIT ON *X 

•IN ONE OR MORE * 

* ON-UNITS * 


.*. 

.* J2 *•* 
REVERT 

'*, .* 

*. .* 

* NO 


.* SYSTEM OR *. NO 
*. SYSTEM/SNAP .*... 
*. . • 

*. •* 


***** i3********** 


NA11CD 

„*“ 

...X*. 


***** he* ******** 


MORE 

* ON-UNITS * 

***•«*«***•••**** 


SNAP 

**. . * 


*. # yes 

,*. .... 


>eu8H-code 
3 SET SNAP 


3UTPUT P/C 

TO * 

♦ 01 
♦ PU 

IT SYSTEM E 

IT * 

IN IN ONE 0 

R ♦ 

* p 


UT P/C TO * 

. ..DDRESS oe * 
ROCEDURE IN *. 

* ONE OR MORE * 

* ON-UNTTS • 
a**************** 


• •** 

* • 
. ,X* B3 * 
• * 
• ••* 


♦. 


S IGNAL 

****+k :)*♦♦♦ *♦♦♦♦♦ 

■ p/c Tn ♦ 


x* 


♦ OUTPUT P/C Tr 

♦ INSERT CODF 
*- BYTE IN PPV ♦ 

♦ AND CALL * 

♦ IHEFRRB ♦ 
******+****+*++++ 
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Phase NG overall Logic Diagrarr 


*****41 ********** 

* LA * 

*-*-*_*-*-♦-*-*-* 

• *X* USE SCI TO * 
•LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


**** 8 *********** 

CAL rout?ne rv S. 


*****£ l********** 


♦LIBRARY ROUTINE* 

* * 
***************** 


CONVERT 

oP^gyo 


DSPY.CHAR i 

•****r 3********** 

* CONVERT * 

* OPERAND TO * 

* CHARACTER * 

* STRING * 


**••* 02 ********** 


**••***•*•••*••** 


OPTION 

. PRESENT .* 

*. .* 

*. , * 

* NO 


0SPY3 

*****04********** 

* CHECK THAT * 

* OPERAND IS * 

...X* CHARACTER * 

* VARIABLE * 


«***••**•*•*••*•• 


*•••*•*•**•••••*• 


*****F3********** 
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Cnart NJ. Phase NJ Overall Logic Diagram 


***** 
♦NJ * 
* A 1 * 


* INITIALISE * 

* MOGUL F AND ♦ . 
♦SCAN MECHANISM * 

* * 
***************** 


NUSTAT X 

***** a 2*** ******* 

♦ SCAN FOR ♦ 

♦ RECORD I/O * 

• VERB AND SET *. « 

♦ REQ COOF, OR ♦ 

♦ PROGRAM END * 
***************** 


♦ END OF ♦ 

,,e*X* PROGRAM *. 

♦RELEASE CONTROL* 

* * 
***************** 


***** 
*NM * 
* ai* 


*♦* **B 1 ********** 


SCNOPT • SCR HOP 

*****52 ********** 

* SCAN FOR ♦ 
♦OPTION TRIPLES ♦ 
GO TO PROPER ♦. < 
X *ROUT TO PROCESS ♦ 

• ♦ OPRND ♦ 

, ***************** 
**** 

* * 

♦ B 2 ♦ 


***************** 


*****C] ******* 


************** 


*****01 ********** 

* PUT COUNT * 

♦ OPRND IN * 

>* 2ND SLOT OF ♦X. 

♦ PARH LIST * 

* * 
***************** 


*****£ ] ********** 

♦ PUT ADDRESS ♦ 

♦ OF EVENT ♦ 
•••* OPRND IN 3RD ♦X. 

• ♦ SLOT OF PARM * 

• ♦ LIST * 

X ***************** 
**** 

* * 

* 02 * 


♦****E1 ********** 

♦ PUT ADDRESS * 

♦ OF SDV OF ♦ 
»* OPRND IN 

♦ A TH SLOT OF 

♦ PARM LIST ♦ 
***************** 


♦X. 


*****51 ********** 

* PUT ADDRESS * 

* OF OPRND IN ♦ 

* 1ST SLOT OF ♦Xo 

* PARM LIST ♦ 

* * 
***************** 


*****H1 ********** 

* PUT ADDRESS * 

* OF RE DUE ST * 

* CONTROL BLOCK *X, 

* TN 5 TH SLOT * 

* IN PARH LIST * 
***************** 


>* SELL TRIPLE 


***************** 


♦ IGNORE TRIPLE * 
„* SET REQUEST JJI 

♦ CONTROL BLOCK 

♦ * 
***************** 


,♦ EVENT TRIPLE ♦*. 

* *T 

* * 
***************** 


KFYOPT 

*****p 2 ********** 

* KEY OR * 

♦ KEYFROM TRIPLE * 
SET REQUEST ♦#. 


♦ CONTROL BLOCK ♦ 

* * 
***************** 


»>♦ FILE TRIPLE *J(. 

* * 
***************** 


ENOIO 
-TATEHEK 
TRIPLE 

***************** 


* SET TRIPLE ♦ 
#* SET REQUEST ♦ • 
'♦ CONTROL BLOCK ♦ 

* * 
***************** 


INTFRM 

***** 03 ********** 

♦ INTO OR ♦ 

♦ FROM TRIPLE ♦ 

. ..v* SET REQUEST ♦« 
** CONTROL BLOCK ♦ 

♦ * 
***************** 


*****54******* 

* SET * 

* SFTSW TO * 

* indicate *... 

* READ SET * 

* * 
************** 


. * NO 

,X*, READ SET 

*. « * 


****«B5* ********* 

* PUT ADDRFSS * 

* OF PNTR * 

OPRND IN *„ 

* 2ND SL OT * 

* PARH LIST * 

***************** 


»X* 


„* INTO A *. YFS 
■X*» VARYING „*.„„. 
*„ STRING c * 


♦****cs ******* 

♦ SET « 

♦ SFTSW TH 
»X+ INDICATE 

♦ LOCATE 

♦ * 
************** 


«****[> 5 * ********* 

♦ SET REQUFST ♦ 
♦COOF BLOCK AND ♦ 
f X*PUT AODR OF $DV+o 
♦OF OPRND IN 2ND* 
♦SLOT PARM LIST ♦ 
***************** 


♦ KEYTO TRIPLE ♦ 
.*♦ SET REQUFST *. 
** CONTROL BLOCK ♦ 

♦ * 
***************** 


,V* LOCATE TRIPLF ♦ 

#l * * 


*♦ KEYTO A ♦* NO 
» VARYING • ♦«,.. 
♦<* STRING .* 


*****f?4********** 
♦ * 

♦ SET REQUFST * 

♦ CONTROL BLOCK ♦. 

♦ ACCORDINGLY * 


***************** 


*****53******* 

♦ SET SETSW ♦ 

♦ TO INDICATE ♦ 

♦ LOCATE AND + 

♦ SAVF PNTR ♦ 

♦ OPRND ♦ 
************** 


*«***^ 3 ********* 

♦ GENERATE 

♦ SFLL TRIPLES 

♦ Fnp OPRNOS 

♦ ON CHAIN 

♦ 

**************** 


***************** 


*****54********** 

* CREATE ♦ 

♦COMPILER LABFL * 

? X*PUT IN 3RD S LOT *« 

* OF PARM LI ST ♦ 

* * 
***************** 


*****H4*** ******* 
* * 

♦ CANCEL ♦ 

X* OPTION TRIPLE *<, 

♦ SCAM * 

♦ * 
***************** 


*****p 5* ********* 

♦ PUT ADDRFSS ♦ 

♦ OF RDV OF ♦ 

♦ OPRND IN ♦. 

♦ 2ND SLOT OF ♦ 

♦ PARM LIST ♦ 

***************** 


***«*P5 ********** 

♦ PUT ADDRFSS ♦ 

♦ OF SDV OF ♦ 
*X* OPRND IN *TH ♦• 

♦ SLOT OF PARM ♦ 

♦ LIST ♦ 

***************** 


*****55********** 

♦ PUT ADDRFSS ♦ 
OF RDV OF ♦ 
OPRND IN ♦. 
2ND SLOT OF ♦ 
PARM LIST 


, X^ 


***************** 


***** j] ********** 

♦ GENERATE ♦ 


***************** 


♦» • ♦ 

* 

« LOCATE 


****** i ********** 

♦ GENERATF CODF ♦ 
♦TO ASSIGN PNTR ♦ 
♦VALUE RETURNED ♦. 

♦ IN RDV TO SAVED* 

♦ PNTR OPRND ♦ 
***************** 


****«K2 ********** 

♦ GENERATF CODE ♦ 

♦ TO INITIALIZE ♦ 
bX*VARIABLE NAMED *. 

♦ BY LOCATE OPND ♦ 

***************** 


*****K 3 ********** 

♦ GENERATE * 

♦ COMPILER LABEL * 
• X* MENTIONED IN * 

* 3RD SLOT OF ♦ 

* PARM LIST ♦ 
***************** 
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***** A 1 ********** 

* * 

* SCAN TO * 
<♦ NEXT TRIPLE *X 

* OF INTEREST * 


81 *. 

.* +« 

« ♦ *. NO 

*. EOP2 • 

*, .* 

S , * 

*. .* 

♦ YES 



„♦ *• 

♦* NO 

►X*# CLOSE • 

*• . * 


**** *c 3 ********* 
* 

* CHECK 

* 0^*HJ?I0NS 

* 

**************** 


>****0 3 ********** 

Byftn up * 

' PARAMETER * 

' LIST FROM * 

OPTIONS * 

* 

**************** 


*• NO 

GET 

• * 


..X*. PUT 

♦ . 

*. . * 
*. „ * 

* YFS 


**«**£ 2 ********** 

* GENERATE CALL * 

* TO LIBRARY * 


.♦NEXT TRIPLE*. YES 
*. OATA, EDIT, .*.... 
*. LIST .* 


♦ *♦** 04 - ********** 


***************** 


**************1*** 


♦ INSERT 

* OPTION I 


***************** 


GFT2P 

*****(-, 5 * ********* 

♦ GENERATF * 

♦ INITIALIZATION * 
.boX* CALL TO * 

* LIBRARY * 

* * 
***************** 


MVTRSP X 

****«ns ********** 

♦ MOVE OATA ♦ 

♦SPECIFICATIONS ♦ 

♦ TO OUTPUT ♦ 

♦ UNCHANGED ♦ 

♦ * 
***************** 


♦ GENERATE ♦ 

♦ TERMINATION ♦ 

♦ CALL TO ♦ 

♦ LIBRARY ♦ 

♦ * 
***************** 
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Cfiart NT, 


Phase NT Overall Logic Diagram 


***** 

♦ NT * 

* Al* 


NTCOOO X 

***** A l ********** 

* INITIALIZE * 

* PHASE ANO * 

* GET 4K AREA * 

* OF SCRATCH * 

* STORAGE * 


.* SCAN BEEN *. NO * FOR USE BT 

*• I NOI CATEO BY .* X* PHASE NU IN 

*. PHASE .* * SCRATCH 

*. NM .* *„_STORAGE. 


X 

***** 
•NU * 
* Al* 


•*** 


•****r] ********** 

* SCAN FOR * 

* TRIPLES OF * 

* INTFREST TO * 

* THIS PHASE * 

* * 
**••**•***• ****** 


NTOPJ 


.* COMMA *. YES 
*.IN EDIT LIST .*.... 
*. •* 


***02 ********** 

* determine * 

•DED OF VARIABLE* 
X*AND MAKE ENTRY *. , 


S OATA 

**£**•« 


****E2 ********* 

MAKE ENTRY 
IN FORMAT 
ITEM LIST 


.* END 
* OF 
FORMAT 
*. LIST 


THE 

♦DATA AND FORMAT* 

* TYPE LISTS * 

* * 
•**••****••*•**•• 


•**•• 0 5 ********** 

* SAVE FORMAT * 

* ITEM LIST FOR * 

* USE AT PROC * 

* OR BEGIN * 

* * 
***•••••**•*****• 


NT 'iil.*r* 

* SET INCLUDE 

* BITS AND LIB 

* ROUTINE REQUES 

* BITS 


•**** 04 ********** 

* SAVE TYPE * 

* COOES OF ANY * 

* DATA ITEM WHICH* 

* MAY INVOKE * 
•REMOTE FORMATS * 


.* PROC* OR *. YES 
*. BEGIN* 

*. . * 

*. .* 


m 

* ALL P 

* DATA 


********** 

fSrmaV * 


Hfe" 

,**•*•* 


EOUIREO * 

'AND 

*w*!*su?**: 


NTOOJT 


• X* 

•ROUTTnIS marked* 

* AS NECESSARY 

■ ' ***•*■ 
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Phase NU Overall Logic Diagram 


**i***Al ********* 

* INITIALIZE 

* PHASE. 

* LOAD MODULE 

* IFMNV 


♦<»♦* # 

NUC 005? X 

***«**B1 ********** 
* LA * 

*-<«_*-*_* „*_*-*-* 


***************** 


NU140I 

**t>k*B2 ********** 

* GENERATE * 

* LIBRARY CALL ♦ 

FOR DATA- * 

* DIRECTED AND * 

* NO LIST * 
***************** 


*****03********** 


NU0018 

* * * * * o 2 * * *; *■ +■ m * + +'■ * 

* GENERATE CODE * 


* TO LOAD ADOR 
, X*OF FORMAT LIST ♦. ...X 

* INTO STANDARD * 

* REGISTER 8 * 

***************** 


El *. 

• * *• 

.* *• YES 

*. LIST .*.... 


***************** 


NU M 1 

*****44********** 

* GENERATE CODE * 

* TO SAVE LINK * 

► ,<,-* AND *X 

* TRANSMISSION * 

* REGISTERS * 
***************** 


NU V> 27 

*****g4********** 

^GENERATE LABEL * 


***************** 


***«*r 4 ********** 


♦ ' RETURN if * 

♦ FORMAT * 

***************** 


*****04 ********** 

* * 

* GENERATE ♦ 
APPROPRIATE *X. 

* LIBRARY CALL * 

* * 
***************** 


YES . ♦ FORMAT* *o 
»••«>♦. OR FORMAT .* 
*. LIST* «* 


YFS .* FORMAT 
ITEM 


YES .* END OF *„ 
PROGRAM e * 

+ « n* 


FI *• 

. * *, 

* DATA'* ♦ • YES 


*1:0 IT * OR tlST 

*• . 


*****P2« ********* 


(DATA OUTPUT! *. 


, X* (DATA OUTPUTS *. 

* BRANCH ROUND * 

* FORMAT (EDITS * 
***************** 


*«***!= 3********** 
* * 

* RESET COMMA * 
, X* ENTRY IN SCAN * 

* TRT TABLE * 

* * 
***************** 


* MOOULES IF MNU * 

* IFMNV AND 4K * 

* OF SCRATCH * 

* * 
***************** 


.♦ COMMA ♦. YES 
♦• IN LIST OR 
*. DATA .♦ 

♦ . • * 

*. • * 

* NO 


.♦ COMMA ♦ • YES 
*. IN EDIT •♦*... 
♦ • LIST ♦ ♦ 


*** * *Q? ********** 

♦ GENERATE * 

* LIBRARY CALL * 

<* FOR *. 


***************** 


NUw r 24 

*****H 2 ♦♦♦♦♦♦♦♦♦ 

* GENERATE 

* LA I .DATUM 

...X* LA 2.0ED 

* BAIR 7.8 


• X* Bl * 

X * * 

• **** 


.♦PRE-FORMAT ♦. YES 
♦ • MARKER •♦<>••• 

*• • * 

♦• .♦ 

*• •♦ 

♦ NO 


***************** 
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Cnart OB. 


Phase 


DB Overall 


Lcgic Diagram 


***** 
*OB * 
* Al* 


***** 41 ********** 
* * 

* * 

<* SCAN TEXT 
* * 

* * 

***************** 


B1 *. 

i * *, 

END *. 
OF 

. TEXT .* 

*. . * 

*« •* 

* NO 


*X. 


**** 

* 4 

* Al * 

* 4 
**** 


X 

***** 
*00 * 
* Bl* 


• *• 

Cl *. 

' * *. 

.* COMPILER *. YES 
►. PSEUDO- .*.... 
♦.VARIABLE .♦ 

*• • * 

*• •* 

* NO 


«****C2 ********** 


. X* 


***************** 


*****C 3********** 

* PLACE * 

* PSEUDO- * 

VARIABLE * 

PARAMETERS * 

* IN STACK * 

***************** 


• * 

. .* 

* NO 


G1 *. 

.* AO V *. 

* OR SDV *. YES 
FUNCTION .*.... 


*• BINARY 
* *. 


***«*E 2 ********** 

* PLACE ASSIGN * 

* TO FIXEO * 

* BINARY IN *. 

* TEXT * 

* * 
***************** 


.* FIRST * t YES 
b OPERAND •*...„ 
*• CTL OR „* 
♦•TEMP P * 


*****P3 ********** 

* EXAMINE * 

* PSV OPERANO * 
K* AT TOP OF *. 

* STACK * 

* * 
***************** 


***** 05 ********** 

* REPLACF * 

* OPFRAND BY * 

(* WORKSPACE * 

* REF * 

* * 
***************** 


*****£ 4 ********** 

* CALCULATE * 

* DOPE VECTOR * 

* OFFSET FROM *. 

* PARAMETERS * 


****«£ 5 ********** 

* GENERATF * 

* CODE TO * 

SET RESULT * 

* IN DOPF * 

* VECTOR * 

***************** 


> X* 


**** 


FRSTOP 

****«p 3 ********** 
* REPLACE * 


***************** 


♦****F A ********** 

* REPLACF * 

* MTF BY * 

<* PSEUDO-CODE * 

* M VC * 

* * 
***************** 


****F5* ********* 


**************** 


*• 


*• 


• * 

' ** NO 


ADVR 

**#**G2* ********* 

* CALCULATE * 

* DOPE VFCTOR * 
..•X* OFFSET FROM *. 

* PARAMETERS * 

* * 
***************** 


*****33********** 

* GENERATE * **** 

* PSEUDO-CODF * * * 

,X* TO LOAD *•• 8e X* Al * 

* REGISTER FROM * * * 

* DOPE VFCTOR * **** 

***************** 


BUYS *• YES 
OR FIRST .*.... 
, RUY .* 


YFS o* SFLL 
X,,*, OR 2ND 
*. RUY 


BY l 9 

*****j ^ ********** 

* ALIGN * 

* WORKSPACE * 

* TO *• 

* 4-DYTF BOUND * 

***************** 


SCALAR *., YFS 
< 256 «*.«.„* 

BYTES .* 


**** 

¥ * 

♦< Al * 

* 4 

**** 


*****H4 ********** 

* ALIGN * 

* WORKSPACE * 

X* TO *„ 

* REQUIRED * 

* BOUNDARY * 

***************** 


*****H5* ********* 

* PLACE * 

WORKSPACE * 

OFFSET * 

IN OFFSET 1 * 

* SLOT * 

***************** 


, X* 


*****j 3********** 

* PLACE * 

WORKSPACE * 

OFFSET * 0 

IN OFFSET 2 * 

* SLOT * 

***************** 


X* 


«****j4 ********** 

* * 

* BUMP * 

X* WORKSPACE *„ 

* COUNT * 

* * 
***************** 


***«*j 5 ********** 
* * 

* remove * 

<* STATEMENT * 

* FROM TEXT * 

* * 
***************** 


HAS *. YFS 
BUYS BEEN o*co.« 
, REMOVED .* 
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Chart OD. Module OD Overall Logic Diagram 


***** 
*00 * 
* Bl* 


* GET BLOCK * 

* OF * 

* SCRATCH CORE * 

* * 
***************** 


MOVTAB 

*****£] ********** 

* MOVE TABLES » * 

* CONSTANTS AND * 

* ROUTINES INTO * 

* SCRATCH CORE * 

* * 
***************** 


*****□] ********** 
★ * 

* SET UP * 

* POINTER * 

* IN REGISTER * 

* * 
***************** 


**** *5 j ********** 


* PROGRAM i * 
♦RELEASE CONTROL* 

* * 
***************** 


***** 
*0E * 
* AL* 
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Chart OE. Phase OE Overall Logic Diagram 


***** 
*oe * 

* Al* 


**«**A1 ********** 
* * 
♦LOAD MOOULE OF * 

• AND INITIALIZE * 

* SCAN ROUTINE * 


*•*• 

***»*B 1 ********* 

* SCAN TEXT 

* FOR AN 

* INTERESTING 

* TRIPLE 


.* SPECIAL •- VES 


TRfPLF .* 


ASSOO 

♦****C2 ********** 

♦OBTAIN OPERANO * 
YES ♦DESCRIPTNS FRONT 

«... XT TMPO TRIPLES, ♦. 

♦ AND CHECK FOR * 

* VALIOITY ♦ 


****B4 ********** 

ALLOCATE OR * 
BUY STORAGE * 
FOR SECOND * 
OPERAND • 


. *. 

J! *. 

, * BUY, T. 

ALLoHtF, 

. FREE 

*. .* 

*• . * 

* NO 


* SO NARK PHASE 
*QJ, AND RELEASE* 

* CONTROL * 


CAL IB 

•••••J2TTTTTTTT* 
- GENERATE 


LIBRARY 

SEQUENCE 


C3 *. 

.♦ ARE *. 

.♦ OPERA NOS *. 
». FLOATING .« 
♦ . POINT ,» 


ASFLl r 

♦****C *********** 

* GENERATE CODE * 

* FOR FLOATING * 

,.,KT POINT T, 

* ASSIGNMENT ♦ 


0 3 ♦. 

. ♦ ARE *. 

.♦ OPERANOS *. 
F. POINTERS OR . 
T. OFFSETS .* 
*• . * 

*. . * 

• NO 


ARE 

E RANDS 
AREAS 


aspot'- 

**••*04 ••*•***♦< 

* GENERATE CODE 


4SAR ' f 

•****p *•••*••••*• 

♦ GENERATE * 
♦LIBRARY CALLING* 

X *ARF? U A?5 IGNNFNT** 


.* ARE *. 

.* OPERANOS *. YES 
, FIXED .*,... 
*. BINARY .* 


1ENERATE CODE 
FOR FIXED 
BINARY 
ASS tGNHENT 


.* ARE *. 

,* OPERANOS *. YES 
. FIXED .*.... 
*. DECIMAL .* 


FOR ..... 
DECINAL 
ASSIGNMENT 


*. FIELDS .« 
*• . * 

*. . * 

* NO 


ASTR: 

•****H4 ********** 

* GENERATE CODE * 

* FnR STRING OR * 
,..X* NUMERIC FIELD ». 

* ASS I GEMENT * 


. * 


J3 *. 

*, 

ARE 1 
OPERANDS 
LABELS .< 


* ASSIGNMENT 


*. 


* NO 


ASDROP 

*«***j ;*••••••*** 

* DROP SYMBOLIC * 

* REGISTFR * 

USED IN * 

* TMPD tRIPlFS * 


•••••••••a******* 

X 

**** 

* * 

* B1 * 

* * 

**** 


***** 
*0G * 
* A 2* 
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Chart 03. Phase DG overall Logic Diagram 


TRSCAN X 

*****A2 ♦♦♦♦♦♦♦♦♦♦ 
♦ ♦** * * 

* * * GET NEXT * 

* A 2 ♦ ....X* TRIPLE AND * 

* * X * EXAMINE * 

♦*** . * * 

. ***************** 


TSCl')P 

****** 3 ***** ***** 

* * **** 

* OUTPUT P/C * * * 

* FOR LAST ITEM *..c«X* A2 * 


***************** 


TSCSNO 

*****0 3 ********** 

♦ UPDATE MAXIMUM * 

♦ STORAGE * 

»•« X*REQUIREMENT IF * 

♦ NFCFSSARY * 


***************** 


FMTf.ni 

♦****C 1 ********** 

♦ PREPARE TO * 

♦ FX AMINE * 


***************** 


• ^r-UKHAT 

YES •♦LIST PRIMED^. NO 
,...♦. OR NOT .♦*•• 
♦ . PRIMED •* 


♦ ***D 2 ********* 

* * 

♦COMPILER ERROR * 


*************** 


TSC6P2 

*«***E1 ********** 

♦ TERMINATE ♦ 

♦ PHASE. DELETE ♦ 
♦IN-LINE PHASES *X 

♦ IF NECESSARY ♦ 

♦ * 
***************** 


.♦. TSCPRC 

03 ♦„ *****n^********** 

• ♦ PROC ♦. * PRESERVE * 

.♦ OR BEGIN ♦. YES ♦ WORKSPACE * 

♦ •PRIMED OR NOT. ♦••••••<>• X*C OUNTS FOR LAST* 

*• PRIMEO .* * BLOCK PREPARE * 

*. .* * FOR NEW BLOCK * 

* # # * ***************** 

* NO 


***************** 


*****Q2*i******** 


***************** 


***************** 


IEMOH 

*****H4 ********** 

♦ EXAMINE ♦ 

♦ OPERANDS OF ♦ 

, r • X ♦ CONVFRT AND ♦. . 

♦ CHECK IF THF ♦ 
♦CONV IS IN-LINE* 
***************** 


***** j a ********** 

♦ GENERATE _ ♦ 

♦ IN-LINE CODE ♦ 

>♦ FOR THIS »X 

♦ CONVERSION ♦ 

♦ ♦ 
***************** 


**«**GS ********** 
* * 

♦ GENERATE CODE ♦ 

,..x* to call * 

* LIBRARY * 


.* IN-LINE *. 
,.X*. CONVERSION . ♦ 

*. .* 

♦ , , * 

*. .♦ 

* VES 


YES .*tONVERS!ON**. 

DONE BY 01 .< 


♦»***K5**** ****** 

* OUTPUT * 

* MODIFIED * 

♦CONVERT AND S ET ♦. 

♦ TO CALL OM OR ♦ 

♦ OP * 

***************** 
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:nart OM. Phase OM Overall Logic Diagram 



* 



•'-w&Sc#.: 


*.JONVI 


»*C2**** 

b® 


NO .• *. 

END OF TEXT .*X. 

*. .* 


* 

***** 
•OP * 

Vi* 


*5 


•••* 02 ********* 

coe^ m to c pic» 


•****E2 ********** 
♦ * 

* PACK * 

► I PIC TO ( 

* v 

* * 
******** ********* 


•X* 


****F2 ********* 



****H2 ********* 

»EC E ?i T PtC 


****J2 ********* 


■****K2 ********** 

| (OEC°TO C |.MAR ) *x.. 
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hart OP. Phase CP Overall Lcgic Diagram 


***** 
♦OP * 
♦ C2* 


****»C 2 ********* 


******* 41 ********: 


X 

• *• 

02 *. 

• * *• 

.* CONVERT *• YES 
MACRO "•*•••• 

*. „ * 

* NO 

**♦* . 

* * . 

* E2 *.X. 

* * •X,. 

**** x 

• 

E2 *. 


*C4« 

BNT 


_.*T0BT 
*-*-*-*-*-*-*-*- 
, X* BINARY 

* TO BIT 

* 

**************** 


***** 03 ********** 

* * 

* BRANCH ON * 

‘•VrJMmra*:' 

* * 
***************** 


HM9 


***************** 


• * 


• * 

» • * 

* YES 


***** 

*os * 

♦ A2* 
* * 


K : f » t y° 

* 

**************** 
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:hart OS. Phase OS Overall Logic Diagram 

***** 

♦OS * 

♦ A2* 


**** 

* * 

* AA * 

* * 
**** 


*** **A2********** 

♦ GET SCRATCH ♦ 

* STORAGE TEXT * 

* BLOCK* * 

♦ SET SCAN - 0 * 


UP&WI^CAN 


«***r l *1******** 
CONVRT * 

INTO LOCATION *X. 


I&L 


SCAN* 

VES 


*.ANO SCAN . 


**••*01 ********** 

* CONVRT * 

•-*-*-*-*-*-*-*-* 

* INTO TEXT * 

* BLOCK * 

SFE C3 * 


POOLJC 



***E1 ********** 
SCAN POOL 

F ^NH8r R 


***************** 


STPTST 
YES «*" 


***** 

♦ PA ♦ 

♦ B3* 


****«B4 ********** 
* * 

* GET NEXT * 

♦ CONSTANT IN ♦ 

♦ CHAIN * 

* * 
***************** 


♦ CHAR TO ♦ 

ww* : 

» * + 
***************** 


**** 

* * 

♦ J3 * 

* * 
**** 


•***C3*«******« 

♦ * 

♦ CONVRT ♦ 

• * 
*************** 


CHAR STRING 
TO CHAR 
CONVERSION 


*X. 


***************** 

* **** 

. * * 

••X* J3 ♦ 
* * 

**** 


DA 


« *# 


• ♦ 

> • ♦ 

* NO 


# * *. **** 

.♦ SOURCE ♦. YES ♦ ♦ 

*. STRING •*•••• X* KA * 


****G2* ******** 

CONVRT 

*-*-*-*-*-.*-*- 
INTO TEXT 
BLOCK 


FORM 
* *• 


G 3 

ft 

TARC 

STRI 


ft, 

?RNAL .*•• 


iONVERSION**- YFS 
NEEDED 0*00 0 c 

0 » * 

*0 3 * 


NO 

**** 

* * 

»X* J3 * 
* * 

**** 


• * TARGFT 
. „X *0 CHARACTER 
*• STRING • 




ft, , ft 

* NO 

*« ®* 

* YES 




• 

X 

*«***H2**4 


CHARD X 

*ft*** H 3 ********** 

ARC HD X 

*****144********** 


* CHAR TO * 

* BIT STRING *. 

* CONVERSION * 

* * 
***************** 


* ARITH TO * 

<* ARITH *o.« 

* CONVERS ION * 

* * 
***************** 


* ARITH TO * 

,.X* BIT STRING *„ 

* CONVERSION * 

* * 
***************** 


INT 

ARY CONSTANT 
POOL FROM 
TEXT BLOCK 


CHAR STRING 
TO ARITH 
CONVERSION 


* ARITH TO 

* CHAR 

* CONVERSION 

* 

**************** 


***+j 3** ******* 

* * 

* RETURN ♦ 


* CHAR TO * 

* ARITH * 

* CONVERSION * 

* * 
******** ********* 


**** 

* • 

* K4 * 

* * 
**** 


SOURCE 
CHARACTER 
r STRING . 


* ARITHMETIC * 

<* TO ARITH * 

* CONVERSION * 

* * 
***************** 
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• Table 

LA. Phase LA Pseudo-Code Scan 



i 

i 

L 

Statement or Operation Type 

T T 

|Main Processing! 

j Routine | Subroutines Used 

r r 

r 

|SCINIT Initialization 

L. 

| LA0005 

i ■ 

j UT01 , UT02 

-j_ _. . . 

i sci 

1 

L 

Search for triple of inter- 
est 

i LAO 010 

1 

| UT0 1 , UT03 , UT0 6 , UT07 , IJT0 8 

1 

1 .... 

| SC 2 

1 

Move current triple then 
search 

| 

j LA0011 

1 

-j 

T 

| UT01, UT03 , UT06 , UT07 , UT08 

1 

| . . ._ 

j.. 

i SC 3 

1 

Delete current triple then 
search 

j LA0012 

1 

i 

| UT0 1 , UT0 3 , UT0 6 , UT07 , UT 0 8 

1 

i 

i SC 4 

1 

Skip current triple - text 
wcinted 

r 

| LA0020 

i 

T 

| UT0 6 

1 

_|_ _ 

| 

i SC 5 

1 

j... 

Skip current triple - text 
free 

| LAO 0 21 

1 

| UT0 6 

1 

... 

1 SC6 

1 

Move current triple - text 
wanted 

j LA 0025 

1 

_r 

! UT0 3 , UT06 

1 

-L , 

| 

! SC7 

1 

j 

Move current triple - text 
free 

| LA0026 

i 

r 

| UT0 3 t UT06 

i 

i 

| SC10 

1 

Symbolic input pointer to 
absolute 

| LA0035 

1 

4_ . . . . 

1 UT0 1 

1 

| _ .... 

J.._ 

i sen 

1 

Skip pseudo-code - text 
wanted 

T 

| LA0040 

1 

_-j- 

i UT0 6 

1 

-j- 

i SCI 2 

i 

l 

Skip pseudo-code - text 
free 

j LA0041 

1 

-4- 

| UT0 6 

1 

|. .._ ... .. ... 

r 

| MV 2 

1 

L 

Move user pseudo-code to 
contiguous OP 

1 

| LAO 0 50 

i 

1 .... 

| UT0 4 

1 

1 . 

r 

j MV 3 

i 

Move user pseudo-code to OP 

.[_ ... ... 

i LAO 055 

_-L 

T 

I UT0 4 

.j. . . _ 

r 

| MV 3 A 

Move user triples to OP 

T 

| LA00 56 

| UT0 3 

j 

j.. 

| DV1 

Generate dope vector for 
bcised aggregate 

| LA 0 070 

1 

j UT0 7 , UT10 , UT11 

1 
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'Table LAI. Phase LA Routine/Subroutine Directory 


j Routine/Subroutine j 

h 


Function 


H 


DVl 

MV2 

MV 3 

MV 3 A 

SCINIT 

SCI 

SC2 

SC3 

SC4 

SC5 

SC6 

SC7 

SC8 

SC9 

SC10 

sell 
SC12 
UTO 1 
UT0 2 
UTO 3 
UTO 4 
UTO 5 
UT06 
UT07 
UTO 8 
UT1 0 
UT11 


Generate dope vector for based aggregate. 

Move user pseudo-code to contiguous output text. 

Move user pseudo-code to output. 

Move user triples to output. 

Initialize input and output text blocks. 

Searches for triple of interest to user as indicated by IRT table. 

Move current triple to output then search for triple of interest to 

user. 

Delete current triple then search for triple of interest to user. 
Skip over current triple and mask input WANTED. 

Skip over current triple and mark input FREE. 

Move current triple to output and mark input WANTED. 

Move current triple to output and mark input FREE. 

Move input pseudo-code to output and mark input WANTED. 

Move input pseudo-code to output and mark input FREE. 

Convert symbolic input pointer to absolute. 

Skip over input pseudo-code and mark input WANTED. 

Skip over input pseudo-code and mark input FREE. 

Get a new input text block. 

Get a new output text block. 

Move pseudo-code to output. 

Move triples to output. 

Move text to output. 

Test for end of block and chain to next block if necessary. 

Convert dictionary reference to absolute. 

Move input pseudo-code to output. 

Set adjustable oound values in a dope vector. 

Convert output text references to absolute. 
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Table LB. Phase LB Pseudo-Code Initial 


T T 

(Main Processing 
Routine 


Statement or Operation Type 


4 - 


+- 


Subroutines Used 


Scans text for PROCEDURE, BEGIN, j SCAN 
and ALLOCATE triples j 


SCINIT, SCI, SC3, SC5 (all in LA), 
SFSCAN, ENDRTN , MAIN, SCAUTO, 
AUT012 


Scans automatic chain 


SCAUTO 


MAIN 


4 * 


Processes INITIAL attribute dic- 
tionary items 


MAIN 


CNSTWK, ARRENT 




Processes IDV statements 


AUT012 


ARRENT 


4 - 


4 - 


Processes INITIAL arrays 


ARRENT 


CNS1WK 


Table LB1. Phase LB Routine/Subroutine Directory 


r T - 

| Routine/Subroutine j 

h 


Function 


4 - 


ARRENT (LC) 

AUT012 

CNSTWK 

ENDRTN 

MAIN 

SCAN 

SCAUTO 

SFSCAN 


t 


Generates triples and pseudo-code for arrays declared with INITIAL. 

Processes IDV (initial dope vector) statements. 

\ 

Creates initialization triples. 

Releases phase and scratch storage. 

Processes INITIAL attribute dictionary items. 

Scans text for PROCEDURE, BEGIN, and ALLOCATE triples. 

Scans AUTOMATIC chain. 

Scans through second file statements. 
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Table LD. Phase LD Pseudo-Code Initial 


r t T 1 

| |Main Processing! | 

| Statement or Operation Type | Routine | Subroutines Used | 

l - + + 1 

| Scans the STATIC Chain for any 1 STATIC I ENDRTN, ARRENT, CNSTWK, | 

I variable with the INITIAL attribute! |LOVNAS, STRADD j 

L J. 1 J 


Table LD1. Phase LD Routine/Subroutine Directory 


r T' 

| Routine/Subroutine | 

h 


Function 


ARRENT 

CNSTWK 

CNVERT 

ENDRTN 

GAA1 

GAC3 

LOVNAS 

STATIC 

STRADD 

ST0006 

ST0088 

ST9999 


Processes the initial value string for arrays. 

Creates constant entries for initial values. 

Converts decimal integer constants used as replication factors to 
fixed binary. 

Releases the phase and scratch storage. 

Scans array initial value string. 

Makes slot for converted constant for arrays. 

Calculates the equivalent length in bits or bytes of a constant for 
variable or adjustable length strings. 

Scans the STATIC chain. 

Addresses elements of structures. 

Locates initial value list. 

Resets initial value entry. 

Makes slot for converted constant for scalars. 
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Table LG. Phase LG Pseudo-Code DO Expansion 

r 

I 

I Statement or Operation Type 


T T 

Main Processing 
Routine 


+- 


+' 


Subroutines Used 


| Scans text 

b 


LG0002 


SCI (LA) 


+ - 


+ ■ 


For iterative DO triples, pushes 
down stack and examines control 
variable 


LG0011 


PSHDWN, SC5 (LA), CVSCAN 


[pushes down DO stack 

b 


+- 


+ ■ 


LG0013 


+■ 


PSHDWN 

EXPEVL, POPUP 


| For iterative DO' and DO* triples, 

| pushes up stack and removes top 
j entry 

[For CV triples, reverts to normal 
|| scan 

b T 

|For TO and TO' triples, examines 
| argument and assigns to temporary, 
if necessary 


LG0012 


LG0015 


EXPEVL 


+ • 


jG0017 


EXPEVL, TESTOP 


4 


j For BY and BY' triples, examines 
| expression and determines signs of 
j constants; assigns variables to 
j temporary 

b 


LG 0 019 


EXPEVL, TESTOP 


For WHILE and WHILE' triples, marks 
loop as iterative; generates test 
triples 


LG0021 


CODE3 


DO EQUALS triples, assigns expres- 
sion as a temporary; generates code 
to control loop if end of specifi- 
cation 


LG0024 


CODE2 , TESTOP 


b- 

j Sets up control variable text in DO 
j,stack 

b- 


4 


4 


CVSCAN 


CVCOPY, PSTYPO, PSTYP1 


(Generates loop control code 


CODE2 


b 

jTests expression result type and 
j assigns to temorary if not constant 


4 


4 


CVCODE, DICENT, COMPAR, SW1TCHP, 
LMV3AU, LMV3A5, PSTYPO, PSTYP1 


TESTOP 


DICCHN, LMV3A5 


j Moves text from DO stack to output (CVCODE 

L 1 


LMV3AU 
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Table LG1. Phase LG Routine/Subroutine Directory 


r T' 

| Routine/Subroutine | 

h 


Function 


-I- 


C0DE2 

C0DE3 

COMPAR 

CVCODE 

CVCOPY 

CVSCAN 

DICCHN 

DICENT 

EXPEVL (LH) 

LG0000 

LG0002 

LG0010 

LG 0 011 

LG 0012 

LG0013 
LG 0015 
LG0017 

LG0019 

LG 00 21 

LG0022 

LG 0024 

LMV3AU 

LMV3A5 

POPUP 

PSHDWN 

PSTYP0/PSTYP1 

SWITCHP 

TESTOP 


Generates loop control code. 

Generates loop control code for WHILE. 

Generates triples to test upper limit control expression. 

Moves text from DO stack to output. 

Moves input text to DO stack. 

Sets up control variable text in DO block. 

Chains dictionary entries. 

Makes a dictionary entry. 

Analyzes expression to determine result type. 

Initializes phase. 

Scans text. 

When EOP triple encountered, releases scratch storage and passes 
control to next phase. 

For iterative DO triples pushes down stack and examines control 
variable . 

For iterative DO' and DO' triples pushes up stack and removes top 
entry . 

Pushes down DO stack. 

For CV triples reverts to normal scan. 

For TO and TO' triples, examines argument and assigns to temporary 
if necessary. 

For BY and BY' triples, examines expression and determines sign of 
constants. Assigns variables to temporary. 

For WHILE and WHILE’ triples, marks loop as iterative and generates 
text triples. 

When WHILE' triple encountered, branches to generate comparison 
triples . 

For DO EQUALS triples, assigns expression to a temporary: generates 
code to control loop if at the end of specification. 

Moves triples to output. 

Moves one triple to output. 

Removes item from DO stack. 

Pushes down DO stack and initializes new stack entry. 

Test pseudo-variable argument type. 

Changes DO stack text markers. 

Tests expression result type and assigns to temporary if not con- 
stant . 
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Table LS. Phase LS Pseudo-Code Expression Evaluation 


j Statement or Operation Type 

h 

| Scans text and branches to 
j processing routines; marks phase LW 
j and releases control to next phase 

j. 

(Calculates result type and 
j generates pseudo-code for +, -, *, 
|/„ prefix +, prefix - , compare 
(operators, and ADD, MULTIPLY, and 
| DIVIDE functions 

j. 

(Calculates result type for string 
j operators 

H 1 

| Inserts symbolic register in sub- 
| script triple and stacks result 

(. 

| Inserts workspace description in 
j TMPD triples after function, and 
| stacks result. Stacks arguments 
| for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable mark- 
j ers to stack 

(. 

(Calculates results types and 
(generates pseudo-code for ** opera- 
tor. Generates calling sequences 
| to library subroutines for complex 
j arithmetic 

1" * 

(Calculates target type and 
(generates assignment triple for 
(conversion; sets dictionary entries 
| for constants 

^ 

| Interchanges operands; optionally 
j loads first operand 

h 

(Obtains free floating or fixed 
(arithmetic register; stores it, if 
j necessary 

f 

| Adds items to, and releases items 
| from intermediate result stack 

I - 

(Generates calling sequence for 
(complex * and / operators, super- 
vises complex arithmetic 

j. 

| Inserts TMPD triples after zero 
j operands 


Main Processing 
Routine 


ARITH , ARITH2 


STRING 


SUBSPT 


FUNCT 


EXPONT 


CONVT 


GETFR , GETGR 


| ABDSTK , RELSTK 


SETCPX 


Subroutines Used 


ARITH, FUNCT, LZZ1, MOVEPC, 
SCAN (LA), STRING, SUESPT 


ADD3TK , ASSIGN, CONVT, DICDES, 
EXPONT, GENRPD , GETADX , GETFR, 
GETGR, MOVEPC, RELSTK, SETCPX, 
STRING, SWOP 


LZZ1 , MOVEPC, STALRG 


ADDSTK , DICDES 


ADDSTK, ARITH, DICDES, GETFR, 
GETGR, SCAN 


ADDSTK, ARITH2 , CONVT, GETADX 
MOVEPC, STALRG, SWOP 


ADDSTK, ASSIGN, GETFR, MOVEPC, 
STALRG 


GETADX, GETFR, GETGR 


GETADX, STALRG 


None 


EXPONT, GETADX 


RELSTK, SCAN 



-I 

•I 

■\ 

■I 

-I 

-I 

\ 

\ 

\ 
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Table LSI. Phase LS Routine/Subroutine Directory 


r T' 

) Routine/Subroutine | 

h 


Function 


ADDSTK (LT) 
ARITH/ARITH2 (LT) 

ASSIGN 
CONST 
| CONVT 

DICDES 

EOP2 

EXPONT (LU) 

FCTDES 

FUNCT 


FXC1 (LT) 

GENRPD 


GETADX 

(LT) 

GETFR/GETGR (LT) 

LBO 


LBE21 

(LT) 

LBFL1 

(LT) 

LZZ1 


MOVEPC 


PSI 


RELSTK 

(LT) 

SETCPX 

(LU) 

STALRG 


STRING 


SUBSPT 


SWOP 



|Adds items to intermediate result stack. 

Calculate result type and generate code for + , -, *, /, prefix + , 
prefix compare operators, and ADD, MULTIPLY, and DIVIDE func- 
tions . 

Generates an assignment triple and TMPD in the output text. 

Sets up dictionary entry for constant operand. 

Calculates target type and generates assignment triple for conver- 
sion. 

Constructs operand description from dictionary entry. 

Marks phases wanted/not wanted and releases control. 

(Calculates result type and generates pseudo-code for ** operator, 
and generates calling sequence to Library subroutines for complex 
arithmetic. 

Inserts workspace description in TMPD triples after function, and 
stacks result. 

Inserts workspace description in TMPD triples after function, and 
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable markers to stack. 

Generates fixed binary pseudo-code. 

Generates pseudo-code for packed decimal operations. 

Sets up address of pseudo-code instruction. 

Obtain free floating or fixed arithmetic register; store it, if 
necessary. 

Scans text and branches to processing routines. 

(Tests for operand conversions and constants. 

Generates floating pseudo-code. 

Inserts TMPD triples after zero operands. 

Moves pseudo-code to output text. 

Adds pseudo- variable marker to stack. 

Releases items from intermediate result stack. 

Generates calling sequence for complex * and / operators; supervises 
complex arithmetic. 

Generates pseudo-code to store all arithmetic registers currently in 
use. 

Calculates result types for string operators. 

Inserts symbolic register in subscript triple and puts result in 
stack . 

Interchanges operands and optionally loads first operand. 
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Table LV. Phase LV Pseuclo-Code String Utilities 


Statement or Operation Type 

"T 

|Main Processing 
j Routine 

-L . 

T 

1 

1 

1 

Subroutines Used 

Initializes module; releases con- 
trol to next module 

1 ... 
j STRUTO 

1 

1 . . 

T 

| None 

i 


Converts data item to string; cal- 
culates string length 

1 

| STRUTl 

1 

1 

| SCAN 

j 

(LA), STRUT2 

Produces a string dope vector des- 
cription from a standard string 
description 

1 

| STRUT2 

1 

i 

-X _ 

| None 

1 

| 



Table LV1 , Phase LV Routine/Subrout ine Directory 


r T - 

| Routine/Subroutine | 

I- 


Function 


LSUT17 

LSUT22 

LSUT26 

LSUT27 

STUTO 

STRUTl 

STRUT2 

ZSTUT'L 


ZSTUT2 


Tests whether string length is greater than 256, and if necessary 
generates fixed length calling sequence. 

Tests whether string dope vector result is required. 

Generates any assignment and TMPC triples. 

Sets up assignment and TMPD triples. 

Initializes module; releases control to next module. 

Converts data item to string type; calculates string length. 

Produces string dope vector description from standard string des- 
cription . 

Transfer vector to STRUTl. 

Transfer vector to STRUT2 . 


i 
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Table LX. Phase LX Pseudo-Code String Handling 

r t 


Statement or Operation Type 


Main Process 
Routine 


mg 


Subroutines Used 


Initializes phase, scans text and 
branches to processing routines; 
releases control to next phase 


BEGIN 


FUNPT , SCAN (LA), STROP, 
SUBSPT , TMPDT 


+- 


Processes TMPD triples. Arithmetic 
type TMPDs are ignored. String 
TMPDs are replaced by the top item 
from the string stack 


TMPDT 


GE TMPD , MOVSEL, RELSTK , SCAN (LA) 
SETMPD 


-+- 


Processes function and function 
argument triples. Arithmetic type 
functions are ignored. Dictionary 
entries are created for the results 
of string type functions. A 
library calling sequence is gener- 
ated for the BOOL function using 
the mechanism for packed bit opera- 
tions. The result descriptions are 
added to the string stack 


FUNT 


ADDSTK, DIODES , GETADS, GETMPD, 
MOVE PC , RELSTK, SCAN (LA), SETMPD , 
STROP 


4 


Processes subscript triples. 
Arithmetic type subscripts are 
ignored. A symbolic register or 
workspace offset is added to string 
type subscript triples and the 
string description is added to the 
string stack 


SUBSPT 


ADDSTK, DIODES, SEGNOR, SCAN (LA) 


4 




Processes string operations CONCAT, 
AND, OR, NOT and comparisons with 
string type operands. For simple 
cases, in-line pseudo-code is gen- 
erated; otherwise calling sequences 
to the library are generated. The 
results are added to the string 
stack . 


STROP 


ADDSTK, DIODES , GETADS, GETADX , 
GETMPD, MOVEPC , MOVSEL, RELSTK, 
SCAN, STRUT (LV) , ASSIGN, GETWS4, 
GETWS8, SBGNER , SBGNR 
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Table LXl . Phase LX Routine/Subroutine Directory 


r~ T - 

| Routine/Subroutine | 

+- 


Function 


ADDSTK 

ADSTR (LY) 

ASSIGN 

BEGIN 

DICDES 

FUNPT 

FUNT 

GETADS/GETADX 

GETMPD 

GETWS4 

GETWS8 

I.B 

LIBl 

LIL2 (LY) 

LIL3 (LY) 

LIL6 (LY) 

LIL8 (LY) 

Lll 

MOVE PC 
MOVSEL 

MVC1/MVC2 (LY) 

RELSTK 

SBGNER 

SBGNOR 

SBGNR 

SETMPD 

STROP 

SUBSPT 

TMPDT 

T5 

L 


Adds strings to the intermediate string result stack. 

Constructs dope vector and string descriptions from a given descrip- 
tor which may describe either a string, or its dope vector. 

Generates an assignment triple and associated TMPDs in the output 
text. 

Main controlling routine for phase. 

Constructs operand description from dictionary entry. 

Processes result returned by functions. 

Processes funtion and function argument triples. 

Construct address part of pseudo-code instruction. 

Constructs operand description from TMPD triples. 

Allocates 4 bytes of aligned workspace. 

Allocates 8 bytes of aligned workspace. 

Terminates phase at end of program. 

Generates Library calls for string operations. 

Generates pseudo-code for NOT operation. 

Generates pseudo-code for concatenation operation. 

Generates pseudo-code for comparison operation. 

Generates pseudo-code for AND/OR operation. 

Genereites pseudo-code to convert to string. 

Moves pseudo-code from suffer to output text. 

Moves SELL triples to output text. 

Creates MVC instructions. 

Removes strings from the intermediate string result stack. 

Gets next even-odd pair of symbolic registers. 

Gets next symbolic register. 

Gets next symbolic register. 

Constructs TMPD triples from description. 

Processes string operations CONCAT, AND, OR, NOT, and comparisons 
with string type operands. 

Processes subscript triples. 

Processes TMPD triples. 

Sets flags for triple types. 
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Table MB. Phase MB Pseudo-code Pseudo-Variables 


r — - 

| Statement or Operation Type 

1 

T 

(Main Processing 
j Routine 

T 

1 

1 

J. ... 

Subroutines Used 

I 

| Scans source text 

1 

j MB0001 
j ... 

1 

( SCI (LA) 

i 


r 

| PSI operator; starts new entry in 
| stack for pseudo-variable 

L ... 

1 ■ 

( ME 00 11 

1 

_L 

r 

| SWITCH 

1 

1 


T 

|PSI* operator; completes stack 
j entry and generates code for data 
jlist items 

i - 

1 

| MB0012 

1 

1 

1 

1 

| SWITCH, 

1 

1 

i 

TARGET 

1 

| Assign completes stack and rescans 
j group of assignments, putting tar- 
jget descriptions out in correct 
| sequence; generates code for 
j pseudo-variables in stack 

I 

r 

| MB0013 

1 

I 

1 

1 

T 

| DRFTMP, 

( TARGET 

I 

1 

1 

| 

MMV3A5, MVTMPD, OUTMPD, 

1 

| Multiple assign; places only target 
(descriptors in stack 

i . ... ... 

T 

| MB0014 

1 

_i_ . ... 

T 

| MVTMPD 

1 

1 


I 

(Constructs pseudo-variable stack 
| entry 

r 

| MB0020 

1 

1 

1 

| MVTMPD 

1 

1 ...... 


r 

| Places temporary descriptor in 
| output 

l ... 

r 

| OUTMPD 

1 

1 . 

r 

| MMV3A5 

1 

i 


|Gets temporary workspace for 
j pseudo- variable , if necessary 

T 

| TARGET 

1 

1 

| GETWKS 

1 

I 



A 

I 

■1 

I 

I 

I 

I 

I 


■\ 

ii 

■1 

I 

I 

j 
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Table MBl. Phase MB Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 


Function 


\ 

DRFTMP 

GETWKS 

MB0001 

MB0004 

MB0010 

MB0011 

MB0012 

MB0013 

MB0014 
MB0020 
MBl 310 
MBl 311 
MBl 316 
MBl 318 
MBl 320 
MMV3A5 
MVTMPD 
OUTMPD 
SWITCH 
TARGET 

L - 


- + - 


Makes temporary descriptor from a dictionary reference. 

Obtains workspace to accommodate a variable of given type. 

Scans source text. 

Multi-switch for triples of interest. 

On reaching end-of-text marker, releases remaining block, ana 
releases control of phase. 

PSI operator; starts new entry in stack for pseudo-var iable . 

PSI' operator; completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescan group of assignments, putting 
target descriptions out in correct sequence, generates code for 
pseudo-variable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 
Constructs pseudo-variable stack entry. 

Resets input pointer to start of sequence of ASSIGNS. 

Rescans ASSIGNS and associated TMPDS from stack in reverse order, 
Tests for end of stack. 

Tests for pseudo-varaible TMPD . 

Generates code for pseudo-variable. 

Moves one triple to output. 

Places temporary descriptor in stack. 

Places temporary descriptor in output string. 

Changes scanning table. 

Obtains temporary workspace for pseudo-variable, if necessary. 
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• Table MD. Phase MD Pseudo-Code In-Line Functions 


j Statement or Operation Type 

l 

(Main Processing 
j Routine 

r 

1 

r 

Subroutines Used 

1 

| Scans text 

l 

r 

| Phase LA (SCAN) 

| 

T 

| None 
-1- 


1 

| Builds up function stack 

i 

(lfarin 

_ 1 _ 

T 

| None 

_L . _.. 


i 

| Builds up argument stack 

1 

T 

| LFCOM 

... | ... . 

T 

| None 

j. 


r 

| Moves generated code to output 
| block 

l 

T 

ILFMOVE 

1 

-j. 

j MV3 (LA) 

1 


r 

| Generates in-line code and 
j library calling sequences 

L 

j LFE0F2 

1 

_ j. 

j SNAKE 

1 

X 



• Table MDl . 

r 

| LFARI1 

I 

|LFARIN 

I 

| LFCOM 

I 

j LFDR 

I 

j LFEOF2 

I 

| LFIGN 

I 

I LFSPEC 


Phase MD Routine/Subroutine Directory 

T 

| Continues scan for in-line functions. 

I 

| Builds up function stacx. 

I 

| Builds up argument stack. 

I 

| Unpacks dictionary reference of argument when argument triple found. 

I 

| Calls subroutines to generate in-line code. 

I 

| Removes triple from text if inside an in-line function. 

I 

| Branches if IGNORE triple or not an in-line function. 


SNAKE 


Generates code for ADDR function. 


•Table ME. Phase ME Pseudo-Code In-Line Functions 


r~ ~ . 

1 

( Statement or Operation Type 

i 

“T 

(Main Processing 
j Routine 

i 

j Subroutines Used 

r ■ 

| Scans and moves text 

I 

T 

(Phase LA (SCAN) 

l 

t ■ ■ ■ 

| SCI , SC 2 , SC 3 , SC5 , MV 3 

1 ... 

1 

| Builds up function stack 

i 

1 

| SFUNC 

1 

1 

| ZDRAOF 

r 

(Constructs result TDB and branches 
| to routines for INDEX, UNSPEC, 
(COMPLETION, and STATUS 

1 

T 

| SFNPM 

1 

1 

1 _ . 

| MS 4 ,MS5 ,MSB, RTAA , RTAB , INDEX , 
j ILUNSP, EVENT, ZDRAOF , STATUS 

1 

1 . .... 

r 

| Deletes current triple 

i 

I _ 

J SIGN 

1 

T 

| None 

i. 

r 

| Builds up argument stack 

1 _ 

1 

| SDCOM 

i 

1 ... 

| ZDRAOF 

1 

r 

| Inspects arguments and branches to 
(appropriate subroutine 

L 

t 

| MSB 

1 

-X_ _ _ 

1 

( RTB , RTC , RTD , RTE , RTF , RTG , RTH 

1 

X_ _ 


•Table M£1 . Phase ME Routine/Subroutine Directory 

Function 

EVENT I Generates in-line code for COMPLETION function. 


T — T' 

| Routine/Subroutine | 

f + . 


FINISH I Passes control to the next phase. 

ILUNSP | Generates in-line code for the UNSPEC function. 

INDEX | Generates in-line code for optimizable invocations of the function 

INDEX.. 

MSB iCalls subroutines to generate in-line code. 

MSG | Resets current flag and continues scan. 

RLCTOF | Releases module and passes to next phase. 

RTAA | Generates in-line code when the result is in a register ty name, and 

the second argument is constant. 

RTAB I Generates in-line code when the result is in a register by name, and 

the second argument is variable. 

RTB (Generates in-line code for the case when the first argument is an 

aligned bit string, and the second and third arguments are both 
constant. 

RTC (Generates in-line code in the case when the first argument is a 

character or aligned bit string, the second argument is constant and 
the third variable. 

RTD (Generates in-line code when the first argument is a character or 

aligned bit string, the second is constant and the third is not 
present . 

RTF (Generates in-line code when the first argument is a packed bit 

string, and the second is constant. 

RTF (Generates in-line code when the first argument is a character 

string, and the second and third are both variable. 

x x , j 
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Table ME1. Phase ME Routine/Subroutine Directory (continued) 

T T 1 

| Routine/Subroutine j Function | 


[ 

j RTG 

I 

I 

| RTH 

I 

I 

| SBERR 

I 

j SBGNER 

I 

| SBGNOR 

I 

I SBGTNR 

I 

| SCAN 

I 

j SCINIT 

I 

| SDCOM 

I 

| SFNPM 

I 

| SFUNC 

I 

| SIGN 

I 

| j STATUS 

I 

j STRUT2 

I 

| SUB1 

I 

! 

j SUB3 

I 

I 

| SUB4 

I 

I 

| SUB 5 

I 

| SUB6 

I 

I 

I 

| SUB7L 

I 

| SUB7R 

I 

| SUB9 

I 

j ZDRAOF 

I 

I ZURCOF 


4 \ 

[Generates in-line code when the first argument is a character | 

j string, the second is variable, and the third is not present. j 

I l 

[Generates in-line code when the first argument is a bit string, and | 
j the second is variable. | 

I I 

| Error routine. | 

I i 

| Gets the next even register and sets the even/odd bit on. | 

I I 

| Gets the next odd register and sets the even/odd bit on. [ 

I I 

[Gets the next available symbolic unassigned register. | 

I I 

| Scans for the next triple of interest. | 

I I 

[Initializes pointers and text blocks. | 

I I 

| Builds up argument stack. | 

I I 

[Generates in-line code. | 

I I 

[Builds up function stack. | 

I I 

[Deletes current triple. | 

I I 

[Generates code for STATUS function. | 

I I 

[Constructs a string dope vector. | 

I I 

[Generates code to place the address of the first argument plus a j 
j literal offset into a symbolic register. j 

I I 

[Generates a ST and DROP instruction, optionally followed by a MVI | 

j instruction. j 

I I 

(Constructs a dictionary entry for the constant JJ, and generates an | 
j MVC instruction. j 

I I 

[Generates two STH instructions, followed by a DROP instruction. | 

I I 

[Generates an RX instruction to operate on a T'DB by a register, | 

j optionally followed by an instruction to drop any reqister used in j 

[addressing the TDB item. j 

i I 

[Generates SR, SLDL, OR instructions. j 

I I 

[Generates SR, SRDL, OR and DROP instructions. j 

I I 

[Calculates correct values for ILEN, 10FF and Y. | 

I I 

[Converts a dictionary reference to an absolute address. | 

I I 

[Releases scratch core. j 
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Table MG. Phase MG Pseudo-Code In-Line Functions 1 


T T 

Main Processing 
Routine 

+- 


Statement or Operation Type 


Subroutines Used 


Scans text 


PHASE LA (SCAN) 


None 

None 


Builds up function stack 
Builds up argument stack 


LFARIN 


+ - 


LFCOM 


None 
MV 3 (LA) 


Move generated code to output 
block. 


LFMOVE 




Generates in-line code 


LFE0F2 


ABBFLL, 
ALLCC2 , 
CEILS, 
CNASTR , 
CON JGL, 
FLOORD, 
IMAGFD, 
REALFD , 
TRUNCB , 
UNSPEC, 


ABBFLS 
CE1LB , 
CMPLXB, 
CNVINT 
CONJGS 
FLOORL 
IMAGL, 
REALL , 
TRUNCD 
UTTEMP 


, ABSFB , 
CEILD, 
CMPLXD , 
r CCNJGB 
, ERRFUN 
, FLOORS 
IMAGS, 
REALS, 

, TRUNCL 


ABSFD , 
CEILL, 
CMPLXL , 

, CON JGD , 
, FLOORE, 
, IMAGE, 
REALE, 
SBGTNR , 
TRUNCS, 


Table MG1 . Phase MG Routine/Subroutine Directory 


r T - 

Routine/Subroutine | 

+- 


Function 


ABBFLL 


j Generates 
j argument . 

I 

in-line 

code 

for 

ABBFLS 


1 

| Generates 
j argument . 

1 

in-line 

code 

for 

ABSFB 


1 

| Generates 

i 

in-line 

code 

for 

ABSFD 


1 

1 Generates 

| 

in-line 

code 

for 

ALLOC 2 


1 

| Generates 

i 

in-line 

code 

for 

CEILB 

(MH) 

1 

| Generates 

j ment „ 

1 

in-line 

code 

for 

CEILD 

(MH) 

| Generates 
j argument . 

i 

in-line 

code 

for 

CEILL 

(MH) 

1 

| Generates 
j argument . 

i 

in-line 

code 

for 

CEILS 

(MH) 

i 

(Generates in-line 
| point argument. 

i 

code 

for 

CMPLXB 


i 

| Generates 
j argument. 

1 

in-line 

code 

for 

CMPLXD 


1 

| Generates 
j ment. 

| 

in-line 

code 

for 

CMPLXL 


1 

| Generates 

in-line 

code 

for 


CNASTR 

CNVINT 


argument . 

(Constructs assignment triple and associated TMPDS . 
Converts a decimal integer constant to fixed binary, 


L X - J 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 


| Routine/Subroutine j 


Function 


CONJGB 


CONJGD 


CONJGS 


FLOORB (MH) 


FLOORD (MH) 


FLOORL (MH) 


FLOORS (MH) 


IMAGL 


I MAGS 


LFARI1 


LFEOF2 


LFEOF3 


LFIGN 


LFMOVE 


LFSPEC 


Generates code for the CONJG function with fixed binary arguments. 

Generates in-line code for the CONJG function with fixed decimal 
arguments. 

Generates in-line code for the CONJG function with long floating- 
point arguments. 

Generates in-line code for the CONJG function with short floating- 
point arguments. 

Aborts if Phase IM discovers an error in a function. 

Generates in-line code for the FLOOR function with fixed binary 
argument . 

Generates in-line code for the FLOOR function with fixed decimal 
argument . 

Generates in-line code for the FLOOR function with long floating- 
point argument. 

Generates in-line code for the FLOOR function with short floating- 
point argument. 

Generates in-line code for IMAG function with fixed binary argument. 

Generates in-line code for IMAG function with fixed decimal 
argument . 

Generates in-line code for IMAG function with long floating-point 
argument . 

Generates in-line code for IMAG function with short floating-point 
argument . 

Builds up function stack. 

Continues scan for in-line functions. 

Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 
Calls subroutines to generate in-line code. 

Depending on start of argument list, branches to produce in-line 
code . 

Removes triple from text if inside an in-line function. 

Moves generated code to output block . 

Branches if IGNORE triple or not an in-line function. 

Generates in-line code for REAL function with fixed binary argument. 


REALB 



Table MG1, Phase MG Routine/Subroutine Directory (cont'd) 

r T 

| Routine/Subroutine | Function 



+ ^ 

(Generate in-line code for REAL function with fixed decirrial argument. 

(Generate in-line code for REAL function with long floating-point 
j argument. 

(Generates in-line code for REAL function with short floating-point 
j argument . 

j Get next available symbolic register. 

(Generates in-line code for the function TRUNC with fixed binary 
j argument . 

(Generates in-line code for the TRUNC function with fixed decimal 
j argument . 

(Generates in-line code for the TRUNC function with long floating- 
| point arguments. 

(Generates in-line code for the TRUNC function with short floating- 
j point argument. 

(Generates in-line code for the UNSPEC function, 
j Gets a required amount of temporary work space. 
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Table MI. Phase MI Pseudo-Code In-Line Functions 2 


r 

1 

j Statement or Operation Type 

L 

T 

|Main Processing 
| Routine 

4 - 

T 

1 

| Subroutines Used 

u ._ _. 

r 

| Scans text 

L .... . 

T 

(PHASE LA (SCAN) 

. X 

T 

| None 

4 - 

1 

| Builds up function stack 

L . . 

| LFARIN 
u 

T 

| None 
u 

r 

| Builds up argument stack 

L ... .... 

I 

| LFCOM 
.4. 

1 

| None 

.j. _.. 

r 

|Move generated code to output block 

L . _. 

T 

; ( LFMOVE 

( MV 3 (LA) 

X . . 

1 

(Generates in-line code 

1 

1 

L 

| LFE 0 F 2 

1 

1 

X _ 

T 

(MAXB, MAXD , MAXL , MAXS, MINB , MIND, 
j MINI, MINS, MODB, MODD, MODL, MODS, 
j ROUNDB , ROUNDD , ROUNDL, ROUNDS 

X 


Table Mil. Phase MI Routine/Subroutine Directory 


r T” 

| Routine/Subroutine | 


Function 


Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generate code for MAX /MIN function with fixed binary arguments. 

Generate in-line code for MAX/MIN function with fixed decimal 
arguments . 

Generate in-line code for MAX/MIN function with long floating-point 
arguments . 

Generate in-line code for MAX/MIN function with short floating-point 
arguments . 

Generates in-line code for MOD function with fixed binary arguments. 

Generates in-line code for MOD function with fixed decimal argu- 
ments . 

Generates in-line code for MOD function with long floating-point 
arguments. 

Generates in-line code for MOD function with short floating-point 
arguments . 

Generate in-line code for ROUND function with fixed binary argument. 

Generates in-line code for ROUND function with fixed decimal argu- 
ment . 

Generate in-line code for ROUND function with long floating-point 
arguments . 

Generate in-line code for ROUND function with short floating-point 
arguments . 
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•Table MK. Phase MK Pseudo-Code In-Line Functions 3 


"T T 

(Main Processing 
{ Routine 

■+ +- 


Statement or Operation Type 


Subroutines Used 


Scans text 

( PHASE LA 

(SCAN) j None 
-1- 

Builds up function stack 

t 

(LFARIN 

.1 

1 

( None 

-l 

Builds up argument stack 

1 

| LFCOM 
_l 

T 

| None 

-L ..... . . 

Move generated code to output 

T 

block | LFMOVE 
| 

f 

| MV 3 (LA) 

i 

Generates in-line code 

j LFE0F2 

1 

(DIM, HBOUND, LBOUND, LENGT, SIGNFB, 
(SIGNFD, SIGNL, SIGNS, FREBIP 


•Table MK1 . Phase MK Routine/Subroutine Directory 


I T 

Routine/Subroutine | 

+ 

DIM | Generates code for DIM function. 

I 

FREBIF 1 Generates code for FREE function. 

I 

HBOUND j Generates code for HBOUND function. 

I 

LBOUND (Generates code for LBOUND function. 

I 

LENGT (Generates code for LENGTH function. 

I 

LFARIN | Builds up function stack. 

I 

LFCOM (Builds up argument stack. 

I 

LFE0F2 | Calls subroutines to generate in-line code. 

I 

LFMOVE | Moves generated code to output block. 

I 

SIGNFB (Generates code for SIGN function with fixed binary argument. 

I 

SIGNFD (Generates code for SIGN function with fixed decimal argument. 

I 

SIGNL (Generates code for SIGN function with short floating point argument. 

I 

SIGNS (Generates code for SIGN function with short floating point argument, 

t x 1 


Function 


H 
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Table ML. Phase ML Pseudo-Code Calls and Functions 


Statement or Operation Type 

T — - - - 

|Main Processing 
| Routine 

-L 

T 

1 

1 

_L 

Subroutines Used 

-- - -j 

Scans text 

| PHASE LA (SCAN) 

i 

T 

| None 

i 



Identifies argument of procedure 
invocation 

t 

| FPFNAR 

1 

i 

| None 

1 

I 



Selects generic built-in function 

T 

| FPBIF 

_ 

T 

j FPARD1 



Selects PL/I generic entry name 

| FPGAR 

-X 

| FPARD2 , 

X 

FPARD3 , GNSECO 

] 


Table ML1 . Phase ML Routine/Subroutine Directory 


r T " 

| Routine/Subroutinr | 

h 


Function 


FPA01 

FPARD1 

FPARD2 

FPARD3 

FPBIF 
FPEPCO 
FPFNAR 
FPGAR 
| GNFM2 
GNSECO 


Scans for next argument. 

Obtains parameter descriptions relating to built-in function argu- 
ments . 

[Obtains successive parameter descriptions relating to the entry 
description of a PL/I generic procedure. 

Obtains and stacks full parameter description of a PL/I generic 
procedure . 

Selects generic built-in functions. 

Constructs an entry parameter. 

Identifies arguments of procedure invocations. 

Selects PL/I generic entry name. 

Replaces generic reference testing for uniqueness. 

Makes entry in stack of parameter descriptions. 


•Table MM. Phase MM Pseudo-Code Calls and Functions 


r 

1 

| Statement or Operation 

L 

Type 

_ T — 

|Main Processing 
j Routine 

. j 

T 

1 

1 

4. 

Subroutines Used 

— 

j 

1 

| Scans text 

L 


| PHASE LA (SCAN) 

4 

1 

| None 

4 _ 



1 

— J 

r 

| Scans list, counts arguments and 
| identifies storage class 

1- 

t 

| CFCALL 

1 

1 

| CP ARID , 

| CFMVCD 

4. 

CFFBIR , 

CFFDVS, CFMVTR , 

1 

4 

1 

|Rescans list and generates calling 
| sequence for library routine 

1 

L _ 

T 

| CFCFSS 

1 

1 

-X 

1 

| CFARHA, 
j CFMVCD, 

| EASED 

X 

CFCALP, 
CFNEST , 

CFBIFH., CFMLBR, 
UTTMPVi , CFA 1 F 1 , 

1 

J 
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•Table MM1. Phase MM Routine/Subroutine Directory 


r — t- 

| Routine/Subroutine | 


Function 






BASED (MO) 
BEGIN 

CFALFl (MO) 
CFARHA 
CFARID (MO) 
CFBIFH 

CFB04 

CFB021 

CFB036 

CFCALL 

CFCALP 

CFC03C 

CFCFSS 

CFEXIT 

CFFBIR 

CFFDVS (MN) 

CFL06 
CFL043 
CFMLBR (MN) 

CFMVCD 

CFMVTR 

CFNEST 

CFY007 

UTTMPW (MN) 

L 


Generates relocation code for based variables. 

Initializes phase. 

Places address of invoked routine at the head of its argument list. 
Generates calling sequence. 

Counts arguments and sees STATIC/AUTO flag. 

Further built-in function identification with relevant parameter 
setting . 

Restores previous environment. 

Tests nature of function found. 

Restores pointer to start of invocation. 

Scans lists, counts arguments, identifies storage class. 

Completes calling sequence and, if necessary, generates code to 
initialize dope vector. 

Tests for nested function. 

Rescans list and generates calling sequence for Library routine. 
Transfer vector after first scan. 

Identifies built-in functions, sets parameters for calling sequence 
generation. 

Reserves output text area for generation of code to initialize dope 
vector when a function returns a string. 

Generates code to set up result dope vector. 

Generates code to place result address in argument list. 

Generates code to move a skeleton parameter list which is greater 
than 256 bytes. 

Generates pseudo-code into the output text block. 

Generates triple into the output text block. 

Handles a nested situation. 

Sets parameters to produce special calling sequences. 

Allocates one word of workspace. 
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•Table MP. Phase MP Pseudo-Code BUY Reorder 


Statement or Operation Type 

| Main 

| 

T 

Processing | 
Routine | 

. _ r 

Subroutines 

Used 

Main scan routine for phase 

| MPl 

| SCAN, 

X 

ZDRFAB , ZTXTRF , 

ZUERR 


•Table MP1. Phase MP Routine/Subroutine Directory 


r T * 

| Routine/Subroutine | 


Function 


| UTO 5 

jAdds SELL dictionary reference to SELL list if not already there. j 

l I 

| MPl 

1 1 

|Main controlling routine for rearranging BUY and SELL statements | 

| involved in obtaining VDAs for adjustable length string temporaries.! 

i i 

j MP3 

i 

(Processes EOP triple. Releases control of phase. 

i 


i 

| MP4 

1 

(Processes BUYS triple. 

i 



| MP4 A 

1 

(Processes BUYX triple. 



| MP8 

1 

(Continues text scan if not string or arithmetic data, 
j ture . 

i 

or 

not struc- j 

| MP2 3 

1 

(Continues scan of text. 

i 



| MP26 

1 

(Processes BUYS triple. 

i 



| MP27 

1 

(Processes BUY ASSIGN triple. 

i 



| MP28 

1 

(Processes BUY triple. 

i 



| MP29 

1 

(Processes SUBSCRIPT triple. 

i 



| MP3 0 

1 

(Processes ASSIGN triple. 

i 



| MP31 

1 

(Accesses top stack entry. 

i 



| MP8 6 

1 

(Tests triple for BUYX, and processes. 

i 



| MP87 

1 

| Scans for BUYS, BUY, and SELL triples. 

I 



j MP5 

1 

| Processes SELL triple. 

i 



| SCAN 

1 

| General scan routine. 

i 



| ZDRFAB 

1 

(Converts dictionary reference to absolute address, 

i 



| ZTXTRF 

1 

(Changes absolute address to a text reference. 

i 



| ZUERR 

1 

(Makes error message entries. 
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Table MS. Phase MS Pseudo-Code Subscripts 

r T T 1 

| (Main Processing! | 

| Statement or Operation Type j Routine j Subroutines Used j 

(. + i j 

| Scans text | SBSCAN | None | 

(. 1 i -| 

| Calculates element offset |SBSTIH |SBASS, SBCOBI, SBGNOR , SBMVCD, j 

| | |SENEST, SBSUBP , SBSUDV, SBXOP, j 

I j IUTTEMP | 

J. 1 - -f ^ 

| Checks subscript range | SESBRN |None | 

L . X X J 


Table MSI. Phase MS Rout.ine/Subroutine Directory 


r *r 

| Routine/Subroutine j 


Function 






SBASS 

SBCOBI (MT) 
SBERR (MT) 
SBGNOR (MT) 
SBMVCD (MT) 
SBNEST (MT) 
SBSBRN (MT) 
SBSCAN 
SBSTIH 
SBSUBI 
SBSUBP (MT) 
SBSUDV 

SBS05 

SBS06 

SBS002 

SBS029 

SBTRID 

SBXOP (MT) 

SCAN 

UTTEMP (MT) 


Updates scan pointer over an assignment. 

Converts subscript to binary integer. 

Puts error message into dictionary. 

Allocates an odd symbolic register. 

Generates pseudo-code and moves it into output text block. 

Handles nested subscript situation. 

Checks subscript range. 

Branches to LA for scan. 

Calculates element offset. 

Saves array name. 

Handles end of subscript list. 

Generates code to set up the dope vector of an array of adjustable 
strings . 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by 4 or 8. 

Scans for comma, subscript prime, or subscript triple. 

Handles special index feature. 

Controlling scan of text. 

Allocates workspace. 


x. 
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Table NA, Phase NA Pseudo-Code Branches, ON, Returns 


r - 

1 

| Statement or Operation Type 

l . _ __ 

T T 

|Main Processing! 

| Routine | 

_L _L 

Subroutines 

1 

Used j 

l 

r 

(Initializes text block 

L .... 

j NAINIT 

j 


T 

| SCINIT 

_L 

(LA) 


1 

1 

[Scans text for next triple of 
j interest to user 

L 

| NASC 1 , 
j NASC 3 

._ | 

NASC 2 , 

T 

|SC 1 , SC 2 , SC 3 

1 

J. 

(all in 

LA) | 

r 

| Processes 

L 

STOP statements 

1 

| STOP 

j. 


T 

| NAUT 1 

-X 




1 

| Processes 

L 

EXIT statements 

| EXIT 

-L 


1 

| NAUTl 



1 

1 

| Processes 

L 

IF statements 

1 

j IF 

1 . 


| NAUTD , 

j 

NAUTl 6, 

NAUT 21 

1 

, ZSTUT 1 | 

1 

| Processes 

L 

ON statements 

1 

| ON 

... . .. 


| NAUTD, 
-4 

NAUT6, 

NAUTl 6, 

SC 5 (LA) | 

r 

[Produces Library call at end of 
i each PROCEDURE or BEGIN block in 
| source text 

L 

| PROCP , 

1 

1 

j. 

BEGINP 

T 

| NAUTl 

1 

1 

__L 




l 

| Processes 

L 

RETURN statements 

1 

| RETURN 

.j. 


1 

| NAUTl 

_i .. _ ._ 




1 

| Processes 
|ments for 

|_ . 

function RETURN state- 
one data type 

j NA 3002 

1 

f 


1 

| NAUTB , 

1 

.4 .. ... 

NAUTCA, 

NAUTl , 

NAUT 12 | 

1 

| Processes 
[ments for 

1 

function RETURN state- 
more than one data type 

| NA 3013 

1 

I 

1 


1 

| NAUTA, 

| NAUTl, 

| NAUTl 2 

4 

NAUTB, 
NAUT 7 , 

NAUTCA, 
NAUT8 , 

NAUTD, NAUTF , [ 
NAUT 9 , NAUT 11 , j 

1 

i 

| Processes 

L 

GO TO statements 

1 

| GOTO 

. | 


4 

| NAUTD 

4 - - 



i 

1 

1 

| Processes 

1 _ _ 

GOLN triples 

1 __ 

[GOLN 

... 


1 

| NAUTD 

- 4 - 



1 

1 

j 

1 

| Processes 

L 

GOOB statements 

1 

| GOOB 

.I 


T 

| NAUT 5 , 

4. . .. 

NAUTD, 

NAUTl 6, 

1 

SC 5 (LA) j| 

t 

r 

| Processes 

L 

SIGNAL statements 

1 

| SIGNAL 

1 

_j_ _ 


1 

| NAUTD, 
j NAUT 10 , 

4 _ . . 

NAUT6, 

NAUT 21 

NAUTl 6, 

1 

NAUT8 , | 

.1 

r 

| Processes 

L 

REVERT statements 

[REVERT 

I 


1 

| NAUTD, 
.X 

SC 5 (LA) 

^ 1 

J 
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Table NA1 . Phase NA Routine/Subroutine Directory 
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Table NA1. Phase NA Routine/Subroutine Directory (cont'd) 

Function 


r t 

| Routine/Subroutine | 




NAUT1 (Generates call to indicated library routine. 

I 

NAUT2 | Moves indicated pseudo-code, deletes current triple, continues text 

I scan. 

I 

NAUT5 | Makes dictionary entry ior indicated library routine. 

I 

NAUT6 | Updates current symbolic reqister value. 

I 

NAUT7 | On entry, register ER points at an entry label dictionary entry. On 

| normal exit from the routine, register BE points at the next label 
| dictionary entry. Abnormal exit indicates that there are no further 
j labels on the current PROCEDURE or ENTRY statement. 

I 

NAUT8 | Bump EQU* value for branch pseudo-code item. 

I 

NAUT9 | Bump return switch value to be used for current entry label. 

I 

NAUTll | For current entry label, qenerate appropriate EQU* pseudo-code item. 

I 

NAUT12 | Converts current label dictionary reference to an absolute address. 

I 

NAUT16 (Converts dictionary reference of triple second operand to absolute 

j address, loads address into register BR. 

I 

NAUT17 (Makes dictionary entry for maximum negative number. 

I 

NAUT18 | Makes indicated dictionary entry. 

I 

NAUT21 (Generates pseudo-code to compare source bit string, making library 

(comparison routine dictionary entry, if necessary. 

I 

NA1100 | Tests for SNAP. 

I 

NA1140 | Using NAUTD, generates code for CN-units. 

I 

NA3002 (Processes function RETURN statements for one data type. 

I 

NA3005 | Outputs assignment triple. 

I 

NA3013 | Processes function RETURN statements for more than one data type. 

I 

NA8003 (Generates pseudo-code for branch and mask, labels. 

I 

NA8010 (Converts ID to bit-string. 

I 

NA8012 (Outputs pseudo-code. Compares bit-string to zero. 

I 

ON (Processes ON statements. 

I 

PROCP/BEGINP (Produce Library call at end of each procedure in source text. 

I 

RETURN (Processes RETURN statements. 

I 

REVERT (Processes REVERT statements. 

I 

SIGNAL (Processes SIGNAL statements. 

I 

STOP (Processes STOP statements. 

ZSTUT1 (String utility in Phase LV to provide a dope vector for a specified 

j string . 
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•Table NG. Phase NG Pseudo-Code Operating System Services 


"T T 

|Main Processing 
] Routine 

4 +- 


Statement or Operation Type 


Subroutines Used 


Processes ALLOCATE triples for 
based variables 


ALOCAT 


CAL1B , FALUT1 


I Y 
I 

Y 


+- 


Processes DELAY triples 


DLAY 


CAL1B , INTEG, SCAN (LA) 


Processes DISPLAY triples 


DSPY 


4 - 


CALIB , CHAR, ENDLST, 
SCAN (LA) , STCRAD 


Processes FREE triples for based 
variables 


FREE 


CALIB, FALUTl 


I Y- 


4 - 


4 

| CALIB, INTEG, SCAN (LA) ,OPLAST 


(Processes WAIT triples 

L 


WAIT 


'Table NG1. Phase NG Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 

Y 


Function 


CALIB 

CHAR (NH) 

DLAY 

DSPY 

DSPY3 

DSPY4 

DSPY10 

ENDLST 

FALUTl 

INTEG (NH) 
NGO 

OPLAST 
S TOR AD 


Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Processes DELAY triples. 

Processes DISPLAY triples. 

Tests that operand is character variable. 

Makes dictionary entry for parameter list. 

Scans for REPLY option. 

Completes parameter list and makes dictionary entry for it. 

Examines argument of ALLOCATE or FREE triples to see if variable is 
based and forms RDV in workspace to prepare for call to the library. 

Converts a given argument to an integer. 

Scans to next triple. 

Builds up parameter list in workspace. 

Stores an address in a parameter list. 
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•Table NJ. Phase NJ Pseudo-Code RECORD I/O 


Statement or Operation Type 


+- 


Main Processing 
Routine 


Subroutines Used 


Initialize Phase NJ by calling in 
block NK and initializing SCAN 
utility 


STRTNJ 


ZLOADW (AA) , SCINIT (LA), SCI (LA) 


Initializes switches and flags to 
indicate start of new statement. 
Determines RECORD-oriented I/O verb 
and goes to appropriate routine 


NUSTAT 


TXTEST 


■ + ■ 


Gets next triple of interest, 
converts to internal code and sel- 
ects the appropriate routine to 
process it 


SCNOPT 


SC3 (LA), TXTEST, SCAN01, CMPERR 
TXTERR, ZABORT (AA) 


+ ■ 


Processes FILE option of RECORD- 
oriented I/O by placing dictionary 
reference of FILE Declare DCB in 
the appropriate slot of the param- 
eter list. The parameter list is 
in STATIC if file constant, WORK- 
SPACE if file parameter 


FILOPT 


TXTARG , DYNMPL, LAONLY, STDROP, 
CMPERR, TXTERR, WRKSPC, MVPSCD, 
ZTXTRF (LA), SYMREG, MV 3 (LA) 


- + 


Establishes the record dope vector 
(RDV ) for the triple operand and 
places the address in the second 
slot of the parameter list unless 
the operand of the INTO triple is 
A varying string, in which case it 
places the address of the string 
dope vector of the operand in the 
second slot in the parameter list. 


INTFRM 


TXTARG, CMPERR, DYNMPL, LAONLY, 
STDROP, LAOSM2 , CRDV, TXTERR, 

ZABORT (AA), WRKSPC, MVPSCD, TXTRF , 
SYMREG, ZDRFAE (AA), CALLIB, 

ZDICRF (AA), REFRDV, SCALAR, 

PNTRDR , BSDRDV 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 


Statement or Operation Type 


Main Process 
Routine 


ing 


Subroutines Used 


Processes the operand of the 
LOCATE triple by establishing the 
RDV for the triple operand and 
placing this address in the second 
slot of the parameter list. It 
establishes the pointer qualifier 
of the based variable and saves 
this, either to be used, or to be 
overwritten by the operand of a SET 
triple. It establishes a compiler 
label and puts this in the third 
slot of the parameter list in Norder 
to tell the library where to 
return, so that code assigning the 
pointer value returned in the RDV 
to the saved pointer operand is 
avoided. It then initializes the 
based variables just allocated 


LOCOPT 


TXTARG, ZDlCRF, PNTRDR, SCALAR, 
LOCRDV , CMPERR 




+ - 


Processes KEYTO option of RECORD- 
oriented I/O by verifying that its 
argument is a character string, 
then placing it in the appropriate 
parameter list slot, wnich may be 
in STATIC or WORKSPACE 


KYTOPT 


TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT2 (STRUT2 in 
LV) , LACSM2, LAOSM1, TXTERR , 
ZDRFAB (AA), SC 5 (LA), WRKSPC, 
MVPSCD, MV 3 (LA), SYMREG 




Processes the KEY or KEYFROM option 
of RECORD-oriented I/O by 
converting the argument to a char- 
acter string if it is not already a 
character string and placing the 
result in the appropriate parameter 
list slot; this is either in STATIC 
or WORKSPACE 


KEYOPT 


TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT1 (STRUT1 in 
LV) , LAOSM1, LAOSM2, TMPSEL, TXTERR 


4 - 


+- 


Processes the IGNORE option of 
RECORD-oriented I/O by first 
checking that the argument is a 
scalar and then converting to a 
binary fixed integer if it is not 
already a binary fixed integer. 

The address of the argument is 
placed in the appropriate parameter 
list slot in STATIC or WORKSPACE 


IGNOPT 


TXTARG, SCALAR, CINTEG, DYNMPL, 
LAONLY, STDROP, MVPSCD, WRKSPC, 
MVTRPL, LA0SM1 , ZDRFAE (AA), 
CMPERR, TMPREF , NXTMPD, MV3A (LA), 
WRKSPC, SYMREG, MV 3 (LA) 


4 


Processes the event option of 
RECORD-oriented I/O by checking 
that the argument is a scalar EVENT 
variable and placing its address in 
the appropriate parameter list 
slot. The parameter list is either 
in STATIC or WORKSPACE, depending 
upon the storage class of the argu- 
ment . 


EVTOPT 


TXTARG, DYNMPL, LAONLY, STDROP, 
NXTMPD, TMPREF, TXTERR, WRKSPC, 
MVPSCD, ZTXTRF (LA) , SYMREF, 

MV 3 (LA) 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 




T T 

|Main Processing! 
Routine 


Statement or Operation Type 


Subroutines Used 


Processes the pointer operand of a 
SET triple. If part of a READ 
statement, the address of the poin- 
ter variable is placed in the sec- 
ond slot of the parameter list. If 
part of a LOCATE statement, the 
pointer operand overwrites the 
pointer taken from the based varia- 
ble in the LOCATE statement, to be 
used in the pointer assignment code 
produced by ENDIO. 


SETOPT 


TXTARG , SCALAR, NXTMPD, DYNMPL, 
TMPREF, STDROP , TXTERR 


At end of I/O statement, places 
REQUEST_CODE (i.e. IODEF ) in sta- 
tic constant chain, puts STATIC 
parameter list in STATIC chain. 
Creates external Library calling 
sequence for RECORD-oriented I/O 
statement as follows: 


ENDIO 


ZDICRF (AA), LAONLY, LAO SMI , 
CALLIB, MVPSCD, ZTXTAE (AA) , SELL, 
SC 3 (LA) SYMREG, TMPREF, 

ZDRFAB , MVTRPL, RCBCMN 


| EPRM | 

1 LA 1, PARM . LIST | 

I L 15, RECORD. 10. LIBRARY. ROUT | 

j BALR 14,15 | 

I EPRM j 

I I 

| If there is a WORKSPACE parameter | 

| list, it updates the MVC or parara- | 
jeter list from STATIC to WORKSPACE.! 

| It checks whether a LOCATE state- | 
jment is being processed, for which | 
j it generates pseudo-code to assign j 
(the pointer value from the RDV to j 
| the pointer variable and to ini- j 
jtialize the REFER variable of a j 
j self-defining structure. It gener- j 
jates an allocate triple to indicate! 
(possible initialization of TASK | 

| and/or EVENT variables, and a com- j 
Ipiler label triple to mark the end | 
|of initialization code for the j 

| library. It generates any SELL | 
j triples accumulated throughout the ) 
j statement on SELL chain. It can- j 
jcels the RECORD-oriented I/O option j 
| triple codes from the SCAN TRT j 

| interest table. It gets the next j 
(triple of interest and goes to | 

j NUSTAT to process as a new state- j 
jment. j 

L X. 
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Table NJ. Phase NJ Pseudo-Code RECORD I/C (cont'd) 


Statement or Operation Type 


Main Processing 
Routine- 


Subroutines Used 


Indicates presence of NOLOCK 
option. 


NLKOPT 


Delete the SELL triple encountered 
during scan of RECORD-oriented 
I/O statement but puts dictionary 
reference in the SELL chain so that 
SELL triple can be regenerated at 
end of I/O statement 


SELL routine 
at S VS ELL or 
TMPSELL entry 
point 


ZDKFAE (AA), MV3A (LA) 


At end of program, releases own 
modules and turns control over to 
next requested phase. 


RLSCTL 
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Table NJ1. Phase NJ Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 


BSDRDV (NK) 

CALLIB 

CINTEG 
CMP ERR 
CRDV (NK) 


DEFER 

DELETE 
DYNMPL (NK) 


END 10 

EVTOPT 

FILOPT 

IGNOPT 

INTFRM 

KEYOPT 

LAONLY (NK) 

LOCRDV (NK) 

KYTOPT 
LA0SM1 (NK) 

LA0SM2 (NK) 

MVPSCD (NK) 

MVTRPL (NK) 

NLKOPT 


Entry point to CRDV routine which marks it as processing a based 
variable in an INTO or FROM option. 

Creates pseudo-code to call library routine; indicates call in dic- 
tionary if not previously noted. 

Checks whether argument is a binary fixed integer. 

Indicates compiler error and ABORT, error code in HOLD register. 

Constructs a record dope vector (RDV ) entry in WORKSPACE. If the 
dope vector descriptor bit is on, then the routine generates a 
library call to generate the RDV. If the variable has static 
extents and is not a string, the RDV is constructed froir information 
in the RDV dictionary entry. If the variable is a string, then the 
RDV is constructed from its string dope vector. 

Indicates compiler error in the case of a deferred feature not 
detected by earlier phase. 

Establishes DELETE code as REQUEST_CODE . 

Establishes a parameter list in workspace if one is not already 
established. Calculates workspace offset to particular slot 
requested. Establishes a symbolic working register. Establishes 
skeleton pseudo-code for LA, ST, and DROP of register into workspace 
offset. 

handles operations at end of I/O statement. 

Processes EVENT option. (Not implemented in second version.) 
Processes FILE option. 

Processes IGNORE option. 

Processes INTO/FROM option. 

Processes KEY or KEYFROM option. 

Outputs pseudo-code for LA into symbolic work register of a dic- 
tionary reference without any offset modifiers. 

Entry point to CRDV routine which marks it as processing a based 
variable of a LOCATE statement. 

Processes KEYTO option. 

Establishes pseudo-code for a LA instruction into a symbolic work 
register with the address of WORKSPACE and a literal offset which is 
pointed to the argument register. 

Generates LA pseudo-code in which both base and offset are in reg- 
isters . 

Puts pseudo-code assembled in pseudo-code area into output text 
block . 

Invokes SCAN utility to move generated triples into output text 
block . 

Indicates presence of NOLOCK option. 
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Table NJ1„ Phase ■ NJ Routine/Subroutine Directory (cont'd) 

Function 


r T - 

| Routine/Subroutine | 


h 


NUSTAT 

NXTMPD 

PNTRDR 

PRGEND 

RCBCMN 

READ 

REFRDV (NK) 

RE WRIT 
SCALAR 

SCAN 01 

SCNOPT 

SCRHOP 

SELL (NK) 

STDROP (NK) 

STRTNJ 
SYMREG (NK) 
TMPREF (NK) 

TMPSEL (NK) 

TXTARG 

TXT ERR 
TXTEST 

UNLOCK 

WRITE 

WRKSPC (NK) 


Handles operations at start of new statement. 

Invokes SCAN utility to get next triple, which is checked to see if 
it is a TMPD; if not, it is an error. 

Establishes the seven-byte pointer information slot in a BASED vari- 
able dictionary entry. 

Releases control to next phase at end of program. 

Commons the dictionary entries of request code blocks. 

Establishes READ code as REQUEST_CODE ; establishes parameter list 
size. 

Establishes the address of the RDV dictionary entry in the ARG reg- 
ister when given the data variable dictionary address in INDX1 . 

Establishes REWRITE code as REQUE3T_C0DE . 

Confirms that dictionary code byte refers to scalar item; ascertains 
whether item is a constant. 

Indicates compiler error in the case of a deferred feature not 
detected during Read-In. 

Gets next triple of interest., branches to appropriate routine. 

Searches options, inserts RECORD-oriented I/O option entries into 
SCAN TRT interest table. 

Generates SELL triples for all dictionary references in the SELL 
chain . 

j Outputs pseudo-code to ST contents of symbolic work register into 
parameter list slot in workspace set up by DYNMPL, and the drop of 
the symbolic register. 

Initializes phase. 

Establishes symoolic work register. 

Generates the appropriate LA pseudo-code to load the address of the 
temporary described by TMPD. 

Adds temporary entry to SELL chain for generation of SELL triple 
upon completion. 

Processes second argument of triple. If dictionary reference, esta- 
blishes absolute address in INDX1. Returns to LR if zero, i.e., 
TEMP, LR+4 if dictionary reference. If null, indicates compiler 
error. 

Writes error message. 

Converts function code of triple interest TRT table to internal key, 
and invokes PRGEND if end of program is indicated. 

Establishes UNLOCK code as REQUEST_CODE . (Not implemented in second 
version . ) 

Establishes WRITE code as REQUEST_CODE. 

Establishes the requested workspace area, starting on fullword 
boundary . 
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Table NM . Phase NM Pseudo-Code Executable I/O 


Statement 

or Operation Type 

T 

| Main 

1 

Processing | 

Routine | Subroutines Used 

.... 4 . 


Processes 

GET 

and PUT statements 

T 

| GET 

1 

1 

I 

4- 

T 

| INSERT, STORAD, INSTFL , GENPC , 
j GENTR , MVTRSP, ENDLST, CALIB, 
j CHAR , INTEG, UTTMPW, SRCERR, 
j SCAN (LA), STRUT1 (LV), STRUT2 

(LV) 

Processes 

OPEN 

and CLOSE statements 

T 

| OPEN 

1 

1 

1 

(INSERT, STORAD, INSTFL, GENPC 
| GENTR, MVTRSP, ENDLST, CALIB, 

| CHAR, INTEG, UTTMPW, SRCERR, 

| SCAN (LA), STRUT1 (LV) , STRUT 2 

X 

(LV) 


Table NMl. Phase NM Routine/Subroutine Directory 


r t 

| Routine/Subroutine | 


Function 


Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Completes parameter list and makes dictionary entry for it. 

Moves pseudo-code to output. 

Moves generated triples to output. 

Processes GET and PUT statements. 

Initializes switches for GET/PUT. 

PAGE option. 

Processes end of I/O statement. 

Inserts dictionary reference in parameter list. 

Inserts file reference in parameter list. 

Converts a given argument to integer. 

Moves data and format list triples to output. 

Begins scan for triples of interest. 

Processes OPEN and CLOSE statements. 

Initializes switches for OPEN/CLOSE. 

Makes error dictionary entry. 

Generates pseudo-code to store symbolic register in parameter list. 
Obtains temporary workspace. 


CALIB 

(NN) 

CHAR (NN) 

ENDLST 

(NN) 

GENPC 

(NN) 

GENTR 

(NN) 

GET 


GET 00 


GET20 


GETS 5 


INSERT 

(NN) 

INSTFL 

(NN) 

INTEG 

(NN) 

MVTRSP 

(NN) 

NMR1 


OPEN 


OPEN 00 


SRCERR 

(NN) 

STORAD 

(NN) 

UTTMPW 

(NN) 
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Table NT. Phase NT Pseudo-Code Data and Format 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Initializes phase, obtains scratch 
storage 


NT 0 000 


None 


I-- 


+- 


Scans text 


NT000 3 


NT0011, NT0014, NT0017, NT0021, 
NT 002 3, NT0024, SC 2 (LA) 


-+- 


Collects remote format items and 
saves until end of block 


NT0011 


None 


+- 


Associates remote format items with 
data list items 


NT0014 


NTUT10 






Makes entries for Library routines 
required for EDIT-directed I/O and 
copies skeletons for phase NU into 
scratch storage, then releases 
phase 


NT0017 


NTUT20 


j. 

Identifies type of data list item 
and enters the type code in a list 

H- 


NT0021 


None 


■ + ■ 


Associates format and data list 
items and marks INCLUDE matrix 

j. 

Identifies type of format list item 
and enters the type code in a list 


NT 002 3 


NTU110 




NT 00 2 4 


None 


•+ 


Sets bits in INCLUDE matrix to 
represent STREAM I/O conversion 
requirements at execution time 

b 

Makes dictionary entry for Library 
Routine 

L 


NTUT10 


None 


■ + 


NTUT20 


None 


Table NT1 . Phase NT Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 


NT0000 
NT0001 
NT0003 
NT0011 
NT0014 
NT0017 
NT0021 
NT 0023 
NT0024 
NT1700 
NTUT10 
NTUT20 

L 


Initializes phase, obtains scratch storage. 

Initializes phase address slots. 

Scans text. 

Collects remote format items. 

Associates remote format items with data list items. 
Makes entries for Library routines for EDIT-directed I/O, 
Identifies types of data list items. 

Associates format and data list items. 

Identifies types of format list items. 

No EDIT-directed I/O, therefore no scan pass. 

Sets bits in INCLUDE matrix. 

Makes dictionary entry for Library routine 


Section 3: Charts and Routine Directories 


267 





Table NU. Phase NU Pseudo-Code Data and Format Lists 

r 


T T 

| Main Processing 
j Routine 

+ 


Statement or Operation Type 


Subroutines Used 
INSERT, UT24,UT11,UT23 


-H 


Generate Library calling sequences |NU0022 
for data items in DATA-directed I/Oj 
statements | 

i +- 

Generate Library calling sequences |NU0023 
for data items in LIST-directed I/0| 
statements | 

+ 

Generate code for data items in |NU0024 
EDIT-directed I/O statements j 

1 

Scan text |NU0002 

+ + 

Generate Library calling sequences | NU0029, NU0030 
for format list items | NU0033,NU0037 , 

INU0050 


-H 


INSERT , UT11 , UT2 5 , UTl 4 , UT23 , UT09 


+- 


-H 


UTO 9 ,14 


-H 

I 

•H 


SCI (LA) , SC2 (LA) ,SC3 (LA) 
UTl 5 , UT1S , ECDCNV , UT10 


l 


Table NU1. Phase NU Routine/Subroutine Directory 


r t 

| Koutine/Subroutine | 
|- 1 


Function 

Convert decimal constant to binary. 

Add an entry to an argument list. 

Scan text. 

Generate Library calling sequence for DATA-directed data list iterr. 

Generate Library calling sequence for LIST-directed data list item. 

Generate cards for EDIT-directed data list item. 

Generate Library call for A or B format item. 

Generate Library call for E or F format item. 

Generate code for R format item. 

Generate Library call for P format item. 

Generate Library call for X, PAGE, SKIP, LINE, C, or COLUMN format 
item. 

Make dictionary entry for constant in EDIT or LIST list. 

Convert a constant entry to one of specified type. 

Generate Library calling sequence passing argument list. 

Generate code for intermediate result items in EDIT and LIST data 
lists . 

Make dictionary entry for FED or DED. 

Generate an assignment triple. 

Generate Library call code. 

Construct symbol table dictionary entry. 

Set bit in the INCLUDE matrix. 


BCDCNV 

(NV) 

INSERT 


NU0002 

(NV) 

NU0022 


NU0023 


NU0024 

(NV) 

NU0029 

(NV) 

NU0030 

(NV) 

NU0033 

(NV) 

NU0037 

(NV) 

NU0050 

(NV) 

UTO 9 


UT10 


UT11 


UT14 


UTl 5 


UTl 8 (NV) 

UT2 3 


UT2 4 


UT25 
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Table OB. Phase OB Pseudo-Code Compiler Functions 


T T 

Main Processing 
Routine 

+- 


Statement or Operation Type 


Subroutines Used 


Scans text for BUY, BUY ASSIGN 
statements and compiler function 
and compiler pseudo-variables (see 
Appendix D.8), and transfers to 
appropriate routine 


ST1 


SCAN (LA) 


+- 


+- 


Replaces MTF compiler functions 
(Appendix D.8) by pseudo -code move 
character instructions, adjusting 
the target field to controlled or 
temporary type 2 workspace where 
necessary 


MTFR 


BUFIZE, FRSTOP , SC 3 (LA) 


+- 


+ - 


Replaces ADV compiler functions 
(Appendix D.8) by pseudo-code 
instructions to load specified 
element of a dope vector into a 
register 


ADVR 


SC 3 (LA) 


Replaces SDV compiler functions 
(Appendix D.8) by instructions to 
load the maximum length from a 
string dope vector into a register 


SDVR 


SC 3 (LA) 


Replaces compiler pseudo-variable 
triples and compiler assignment 
triples by pseudo-code instructions 
which store the value assigned in 
specified part of dope vector 


ST4 


BUFIZE, STACK, MV 3 A (LA), FRSTOP, 
DROPRG , UST'ACK, SC5 (LA) 




Remove BUY, BUY ASSIGN, and SELL 
statements for scalar non- 
adjustable temporary variables from 
the text, and allocate storage in 
the pseudo-code workspace for the 
temporaries 


ST8 , ST1 0 , ST7 


SC2 , SC 3 (both in LA) 




Generates code to drop a symbolic 
register, or mark a literal 
register not wanted 


DROPRG 


None 


■ + 


I" 


Determines whether the target dic- 
tionary reference of MTF function, 
or ADV or SDV pseudo-var iable is 
controlled or a temporary type 2. 

If it is, the dictionary reference 
is replaced by the dictionary ref- 
erence of the controlled or tem- 
porary type 2 workspace, with the 
appropriate offset, if the target 
is a structure base element 
Stack and unstack the information 
specifying the target field of 
compiler pseudo- variable assignment 


FRSTOP 


SETDVF 


STACK, USTACK 


None 


4 


4 


l~ 


Calculates the offset of the dope 
vector of a structure base element 
from the start of the structure 
dope vector 


SETDVF 


None 


Place triples from the source text 
in an internal buffer. 


BUFIZE 


SC5 (LA) 
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Table OBI. Phase OB Routine/Subroutine Directory 


r x - 

| Routine/Subroutine | 

f" 


Function 


| ADVR 

i 

AT7 

AT8 

BUFIZE 

BY5 

BY19 

DROPRG 

FRSTOP 

MTFR 

SDVR 

SETDVF 

STACK/USTACK 

ST1 

ST4 , ST6 

ST7 , ST8 , ST10 


[Replaces ADV compiler functions by pseudo-code instructions to load 
the specified element of a dope vector into a register. 

Generates pseudo-code. 

Replaces operand by workspace reference. 

Places triples from the source text in an internal buffer. 

Tests length of string. 

Processes string temporary (dope vector only). 

Generates code to drop a symbolic register or mark a literal reg- 
ister not wanted. 

Replaces the target field of MTF function or compiler pseudo- 
variable by controlled workspace where necessary. 

Replaces MTF compiler functions by pseudo-code move character 
instructions . 

Replaces SDV compiler functions by pseudo-code instructions to load 
the maximum string length into an object register. 

Calculates the offset from the start of a structure dope vector to 
the dope vector of a particular base element. 

Stack and unstack information specifying target field of compiler 
pseudo-variable assignment. 

Scans text for BUY and BUY ASSIGN statements, compiler functions, 
and compiler pseudo-variables. 

Replaces compiler pseudo-variables and compiler assignment triples 
by pseudo code instructions to set the assigned expression, convert- 
ed if necessary in the specified part of a dope vector. 

Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from 
the text, and allocate space for the temporary variables in the 
pseudo-code workspace. 
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•Table OD. Phase OD Pseudo-Code Assignment 

r T x 1 

| |Main Processing! j 

j Statement or Operation Type j Routine j Subroutines Used j 

j. -j- 1 -j 

| Get block of scratch core | SCRCOR | None | 

f -j- -j- -j 

| | Move routines, constants and tables | MOVTAB | None | 

j j to block j j | 

l j. x J 


•Table 0D1. Phase OD Routine/Subroutine Directory 

r t 

| Routine/Subroutine | Function 

j. 1 

| SCRCOR J Obtains block of scratcn core. 

I I 

| J MOVTAB | Moves routines, tables and constants into scratch core. 

L X 


1 

I 

■I 


J 
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Table OE. Phase OE Pseudo-Code Assignment 


r 

| Statement or Operation Type 

l 

T 

(Main Processing 
( Routine 

1 

T 

1 

_| 

Subroutines Used 


r 

(Generates pseudo-code for assign- 
jment triples 

I ..... 

1 

( ASSOO 

1 

| ASCOO, 

1 

1 

ASCDOO , ASDROP 


r 

(Generates Library calling sequences 
j for ALLOCATE, FREE, BUY, and SELL 
| triples 

L 

_j_ 

| ALLOC, FREE, 

| BUY , or SELL 

1 

-L 

r 

| CAL1B 

1 

1 

X 


.1 


•Table OE1. Phase OE Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


(ALLOC (OF) 

| Processes 

ALLOCATE triples. 

I 

| ASCOO 

( Inserts target types for constants. 

1 

(ASCDOO 

i 

( Controls 

i 

assignment of real and complex data. 

i 

1 

| ASDROP 

i 

|Drops symbolic registers. 

i 

1 

1 

| ASFBOO 

i 

( Generates 

i 

code for fixed binary assignments. 

II 

II 

ii 

| ASFDOO (OF) 

1 

| Generates 

| 

code for fixed decimal assignments. 

I 

II 

| ASFLOO 

1 

( Generates 

1 

code for floating-point assignments. 

| 

ii 

| ASLOO 

1 

( Generates 

i 

code for label assignments. 

1 

| ASPOOO 

1 

( Generates 

I 

code for pointer/of f set assignment. 

t 

| ASAROO 

1 

| Generates 

1 

library calling sequence for area assignment. 


(ASSOO 

1 

| Processes 

i 

assignment triples. 


( ASS032 

1 

(Tests for 

special assignment triple. 


(-ASTR00 (OF) 

1 

| Generates 

i 

code for string and numeric field assignments. 


(BUY (OF) 

i 

| Processes 

i 

BUY triples. 


|CALIB (OF) 

1 

( Generates 

i 

Library calling sequences. 


| ENABLE 

i 

(Enables for SIZE prefix option. 

1 


1 FREE (OF) 

i 

| Processes 

1 

FREE triples. 


| GENCNV 

1 

| Generates 

convert macro instruction. 


(GENRXO 

1 

[ Generates 

i 

RX instruction. 


| GENSSO 

1 

| Generates 

SS instruction. 


( GETDES 

i 

| Obtains operand description. 

1 


( RMNDX 

1 

| Removes index from operand. 

I 


| SBGTNR 

1 

(Obtains next symbolic register. 

i 


| SELL (OF) 

i 

| Processes 

SELL triples. 


jSPASS (OF) 

1 

| Processes 

special assignment triples. 
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Table OG. Phase OG Library Calling Sequences 


T T 

Main Processing 
Routine 




Statement or Operation Type 


Subroutines Used 


Scans triples and takes action on 
their values 


TRSC'AN 


4 - 


EOBIN , TSCSNO , TSCCLE , T'SCPRC , FMT'001 , 
TSCEOP , TSCEP2 , JSCJMP , MOVITM , MOVOUT 


Scans pseudo-code deleting IGNORE 
items and detecting CONVERT items 


PCS CAN 


C1MVFND, MOVITM, MOVOUT 


■+* 


Examines fields of CONVERT, and 
determines whether the conversion 
is to be done in-line 


IEMOH 


MJG201, IEMOI , CODCAL 


■+’ 


Generates Library calling sequence 


• + 


MJG201 

IEMOI 


MJG203 , MJG204 , MJG29 8 




Generates in-line code for selected 
conversions 


EITCDI , FDTOFB , FIBFLT , DECFLT , PICHAR 
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Table OGl. Phase OG Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


h 




EOBIN 

TSCSNO 

TSCCLB 

TSCPRC 

FMT001 

TSCEOP 

TSCEP2 

TSCJMP 

MOVITM 

MOVOUT 

CNVFND 

MJG201 

CODCAL 

MJG203 

MJG204 

MJG298 

BITODI 

FDTOFB 

DECFLT 

FIBFLT 

PICHAR 


(OH) 

(OH) 

(OH) 

(OH) 

(OH) 

( OI ) 
( 01 ) 
( 01 ) 
(01) 
( 01 ) 


Entered when an end of input block marker is detected. 

Processes SN, SN2, and SL triples. 

Processes CL triples. 

Processes PROC, PROC 1 , BEGIN, and BEGIN 1 triples, and sets up counts 
for work space requirements. 

Handles the workspace requirements for FORMAT and FORMAT LIST. 
Processes EOP triple. 

Processes E0P2 triples and terminates phase. 

When a JUMP triple is found the routine sets up a counting mechanism 
and enters PCSCAN. 

Moves from input an item which spans blocks. 

Moves an item to the output block. 

When a CONVERT is found passes control to IEMOH and outputs pseudo- 
code generated on return. 

Generates pseudo-code to call the Library conversion package. 

Given a DED generates a code byte used by the in-line conversions. 
Generates pseudo-code to point registers at data. 

Generates pseudo-code to call Library conversion module. 

Sets bits in include card matrix. 

Generates in-line code for binary to decimal conversion. 

Generates in-line code for decimal to binary conversion. 

Generates in-line code for decimal to float conversion. 

Generates in-line code for fixed binary to float conversion. 
Generates in-line code for picture to character string conversion. 
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Table OM. Phase OM In-line Data Conversions 


f T T" 

| (Main Processing! 

j Statement or Operation Type j Routine j 


Subroutines Used 


j Scans text for CNVC macros j TEXTSC 

h + 

| Passes control to code generation jCNVCDE 

j routines j 


PACK, UNPACK, EDIT, EDMK 


Table OM1. Phase OM Routine/Subroutine Directory 


j Routine/Subroutine j 


Function 


Passes control to the in-line code generation routines. 

Generates conversion code,, based on the ED instruction, for FIXED 
DEC to PICTURE conversion which includes punctuation and/or zero 
suppression. 

Generates conversion code, based on the EDMK instruction, for FIXED 
DEC to PICTURE conversion which includes a drifting sign. 

Generates conversion code, based on the PACK instruction, for 
PICTURE to FIXED DEC conversion when the picture contains only 9's 
and V „ and has only external sign or edit characters. 

Generates the editing constant or mask used by the ED or EDMK in- 
line instructions. 

Scans text for CNVC macros. 

Generates conversion code, based on the UNPK instruction, for FIXED 
DEC to PICTURE containing only 9's and V, and with only external 
sign or edit characters. 
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1 


•Table OP. Phase OP Further In-line Conversions 


I 

I 

1 


•Table OPl . Phase OP Routine/Subroutine Directory 


Routine/Subroutine 

T 

1 

J- 




Function 





BNTOBT 

1 

| Generate 

| 

in-line 

code 

for 

conversion 

from 

fixed 

binary 

to bit 

string 

BTTOBN 

1 

| Generate 

1 

in-line 

code 

for 

conversion 

from 

bit string to 

fixed 

binary 

FLTOBN 

1 

| Generate 

in-line 

code 

for 

convers ion 

from 

float 

binary 

to fixed 


j binary 

X 











Subroutines Used 


r t t 

| | Main Processing! 

| Statement or Operation Type j Routine j Subroutine: 

(. -j- 1 

(Initialize and perform test scan to|TEXTSC | CNVCDE 

j search for convert macros j | 

j. -j- + 

| Examine convert macro and select | CNVCDE | BNTOBT , ETTCEN , FLTOBN 

| routine to generate in-line code j | 

L X X 
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Table OS. Phase OS Constant Conversions 


T T 

Main Processing 
Routine 


Statement or Operation Type 


+- 


+- 


Subroutines Used 


Scans constants chain for double 
word constants 


SCANT 


POOLSC , SCNG10, STPTST 


+" 


+ ■ 


Scans constants chain for single 
word constants 


SCAN 2 


POOLSC, SCN010 , STPTST 


I- 


+ ■ 


Scans constants chain for unaligned 
constants 


SCAN 3 


CONVRT, IADENT, SCN010, STPTST 


+ ■ 


Scans through constants chain for 
all constants used to initialize 
STATIC storage 


SCAN4 


CONVRT, STPTST 


+ ■ 


Sets up parameter and branches to 
the correct conversion routine 


CONVRT 


ARARD, ARBTD, ARC HD , CHARD, ERROUT, 
IACCNV, IASTRN, IriEVFA , IHEVFB , 
IHEVFC , IHEVFD, IHEVFE , IHEVKF, 
IHEVKG, IHEVPA , IHEVPB, IHEVPC, 
IHEVPD , IHEVPE, IHEVPF, IHEVPG, 
IHEVPH , UPAA, UPAB, UPEA, UPBE, 

VSAA , VSC'A, VSDA , VSEA, ZEROPT 


Table OS1. Phase OS Routine/Subroutine Directory 


r T" 

j Routine/Subroutine | 

h 


Function 


ARARD 

ARBTD 

ARCHD 

CHARD 

CONVRT 

ERROUT 

IACONV 

IADENT 

IASTRN 
IHEVFA (OT) 

IHEVFB (OT) 
IHEVFC (OT) 
IHEVFD (OT) 

IHEVFE (OT) 


Handles the linking of routines required for any arithmetic to 
arithmetic conversions (corresponding Library module I HE DMA ) . 

As above for arithmetic to bit conversion (corresponding Library 
routines IHEDNB) . 

Arithmetic to character (IHEDNC) . 

Character to arithmetic (IHEDCN). 

Sets up parameters and branches to correct conversion routine. 
Handles the output of error messages for the conversion routines. 
Handles conversion to arithmetic type. 

Makes dictionary entry in the constant pool, generating a new con- 
stant pool block if necessary. 

Handles conversion to string type. 

Converts radix long floating-point binary to packed decimal inter- 
mediate . 

Converts long precision floating-point number to fixed binary. 

Converts long floating-point number to floating-point variable. 

Converts fixed point binary integer with scale factor to long preci- 
sion floating-point intermediate. 

Converts floating-point number of specified precision floating- 
point. 
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Table 0S1. Phase OS Routine/Subroutine Directory (cont'd) 

Function 


r t- 

| Routine/Subroutine j 


h 


4 - 


IHEVKF (OU) 

IHEVKG (OU) 

IHEVPA (OT) 
IHEVPB (OU) 
IHEVPC (OU) 
IHEVPD (OT) 

IHEVPE (OT) 
IHEVPF (OT) 

IHEVPG (OT) 

IHEVPH (OT) 

LDCONP 

POOLSC 

SCAN1 
SCAN 2 
SCAN3 
SCAN 4 

SCN010 


1 

| STPTST 


1 

j UPAA 

(UPAB) 

(OT) 

| UPBA 

( UPBB) 

(OT) 

| VSAA 

(OT) 


| VSCA 

(OT) 


| VSDA 

(OT) 


| VSEA 

(OT) 


1 

1 ZEROPT 

1 



Converts packed decimal intermediate to decimal fixed or floating- 
point numeric field with specified precision. 

Converts packed decimal intermediate to a sterling numeric field, 
with specified precision. 

Converts packed decimal intermediate to long float. 

Converts packed decimal intermediate to an F format item. 

Converts packed decimal intermediate to an E format item. 

Converts packed decimal intermediate to a decimal integer with 

specified precision and scale factor. 

Converts an F or E format item to packed decimal intermediate. 

Converts a decimal integer with specified precision and scale factor 
to packed decimal intermediate. 

Converts binary fixed or floating-point constant to long precision 
floating-point. 

Converts bit string constant with up to 31 significant bits, to 
floating-point with long precision. 

Points to head of constant chain. 

Given a converted constant in scratch storage, scans the existing 
pool for an identical entry. If such an entry is found, the pool 
offset and dictionary reference of the entry is moved into the dic- 
tionary entry for the constant. 

Scans constants chain for double word constants. 

Scans constants chain for single word constants. 

Scans constants chain for unaligned constants. 

Scans constants chain for constants used to initialize static stor- 
age. 

Controls the calling of the conversion routine CONVRT and pool scan 
routine POOLSC and, if required, IADENT . Also handles the case of a 
constant given in internal form. 

Checks for the end of the constant chain. 

Produces zero real (imaginary) part for CAD (corresponding Library 
module IHEUPA) . 

Produces zero real (imaginary) part for numeric field (IHEUPE) . 

Convert from bit string to bit string (IHEVSA) . 

Convert from character string to character string (IHEVSC) . 

Convert from character string to bit string (IHEVSD). 

Convert from character string to pictured character string (IHEVSE) . 

Produces a zero real or imaginary part for a constant given in 
internal form. 
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Chart 08. Storage Allocation Logical Phase Flowchart 


***** 

*'8 * 
* A2* 


♦****A2 ********** 
♦STATIC DSA PA* 
*-*_*_ *. *_*_ *_ *_ * 

* DETERMINFS * 
♦ELIGIBILITY FOR* 

* STATIC OSA • S * 
***************** 


*-.*-*_*_*-*_*_*_* 

* SCANS TEXT * 

* SORTS STATIC * 

* CHAIN * 

***************** 


***«*C2 ********** 
♦STATIC 2 PH* 
*-*-*-*-*-*-*-.*-* 
♦ALLOCATES STOR-* 
♦AGE FOR STATIC ♦ 
♦ARRAYS £ STRUCT* 
***************** 


***** 02 ********** 

♦ SYM TABLF PL* 
*-*-*.*-*-*-*_.*_* 
♦ALLOCATES SYMo * 
♦TABLES AND DEOS* 

* FOR VARIABLES * 
***************** 


*****£ 2 ********** 
♦AUTO SORT PP + 
*-*-*-*_*-*-*-,*_* 

♦ SORTS ♦ 

♦ AUTOMATIC ♦ 

♦ VARIABLES ♦ 

***************** 


***«*£ ? ********** 

♦ AUTO STORE *>T* 
*_*_*_*_*_*_*..*_* 

* ALLOCATES ♦ 

* AUTOMATIC ♦ 

♦ STORAGE * 

***************** 


*****G2********** 

♦PROLOGUES OF* 
*_*_*- *-*-*_ *-.*-* 

* CONSTRUCTS ♦ 

* PROLOGUES FOR * 

* BFGINt PROC *OM* * 
***************** 


****«H2 ********** 

♦ OYN* STORE 0 J* 
*_*-*_*-*_*_*_, *. * 

♦ SCANS TEXT ♦ 
♦FOR ALLOCATE £ ♦ 
♦BUY STATEMENTS ♦ 
***************** 


LENGTHS 


«****J3 ********** 
•LIST LFNGTHS IX* 
*-*-*-*-*-*-*-*-* 
PRINTS * 
AGGREGATE * 
* LENGTH TABLE * 
«*•***« ********** 


> X* 


***** 
*E9 * 
* Al* 
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Chart PA. 


Phase PA Overall 


Logic Diagram 


***** 

♦ PA * 

* B3* 


* PICKUP HEAD * 
♦OF ENTRY TYPE 1* 

♦ CHAIN ♦ 


*****02 ********** 

* * 

* PICK UP ♦ 

* NEXT ENTRY *X 

* TYPE 1 ♦ 

* * 
***************** 


• ♦ *■ 

.♦ END ♦. YES 
*• OF CHAIN •*.... 
*. # * 

*. . * 

♦. •* 

* NO 


YES ,*\* NeItHER**. 
...... PRO C |^E NOR. 


•****C5 * ********* 


*. OSA'S .* 


***************** 


*PQ * 

VI* 


F3 


. *• 


*. 


****«j2 ********** 

* SET * 

* ELIGIBILITY 

» BIT OFF 

* IN ENTRY 

* TYPE l * 

***************** 


*X. 


IS 

NO .* BLOCK SO *. 

. . . *. FAR ELIGIBLE ." 
FOR A STATIC* 

*. OSA .* 

*. .* 

* YES 


DVSIZE 

3 ********** 
* SCAN THE * 
♦AUTOMATIC CHAIN* 


***************** 


OSASIZE X 

3 ********** 

* CALC STORAGE * 

* FOR VARIABLES * 
♦STRUCTURES ANO * 

* ARRAYS * 

* * 
***************** 


***»*H3 ********** 

* ADD * 

♦STORAGE FOR STO* 

* OSA SLOTS TO * 

* COMPLETE OSA * 

* SI ZF * 

***************** 


. * *. 

YES .* IS SIZE 
....*. >512 BYTES 


•****K2 ********** 
* * 

* CHAIN ENTRY * 


***************** 


OICENT 

«****K 3 ********** 

* MAKE STATIC * 
♦OSA DICTIONARY * 

....* ENTRY FOR * 

* STATIC CHAIN * 


***************** 
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Chart PD. Phase PD Overall Logic Diagram 


***** 
*PD * 
♦ A I* 


**<‘**A 1 ********** 

* SCAN TEKT * 

* AND * 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 

******<*********** 


SCSORT 

*«***p l ********** 

* SCAN STATIC * 

* CHAIN * 

* AND * 

* SORT ENTRIES * 

* (IN PA) * 
***************** 


Ci *. 

♦ SIMPLE ♦ • 

STATIC *• YES 


**«**C2*i* 


♦•VARIABLE 


***************** 


•> ♦ 


D 1 


*, 


♦• 


IS A ♦. VES 
i DOPE VECTOR .♦•••• 
♦ ..REQUIRED •♦ 

*• . * 

♦• •♦ 

* NO 


>X* 


*****02 ********** 

♦ DETERMINE * 

* DV SIZE ♦ 

AND * 

ALLOCATE ♦ 

STORAGE ♦ 

***************** 


EXTFRNA. 
.VARIABLE • 

♦• •♦ 


*****f2 ********** 

* ALLOCATE * 

* A A-0VTF. * 

ADDRESSING *. 

* SLOT * 

* ♦ 
*•••••«*•*•*••♦•* 


■ X* 


, X* 


•****f 3 *3. ******** 

•DETERMINE SIZE • 
* OF CONTROL * 
SECTION AND • 

PLACE it in • 
DICT ENTRY * 

**************** 


CONALC 

*****Fj********** 

•SCAN CONSTANTS • 

* CHAIN AND • 

* RELOCATE * 

* OFFSETS fN * 
♦CONSTANTS POOL * 
*****•*••*•*•••*• 


*••**6] *♦♦*•**••• 
* * 

* BUMP LOCATION • 

• COUNTER BY * 

* SIZE OE POOL * 

• • 

***************** 


.* ARF *. 
„*THERF MOPE ». YES 
. CONSTANTS .*... 
*. POOLS .* 


***** 

• PH * 

• Al* 
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Charts and Routine Directories 


281 



:hart PH. Phase PH overall Logic Diagram 


***** 
*PH ♦ 
* Al* 


END . 

A2 *• 

• * *• 
.* END OF * 
*• AUTOMATIC 
*• CHAIN 
* ( # * 

* # , * 

* YES 


***** A3**** ****** 


_?Wt k K 

CONTROLLED 


.*. 

83 *. 

.* CAN *. 

* IT HAVE *. YES 

.. « .* 

*. # * 

*. .* 

* NO 


. *f* REQUIRE**. NO 

***. VECTOR .*•*’•* 

*. . * 


B5 *. 

.* IS *. 

* IT A *. NO 
STRUCTURE .*... 


. * *. 

.* END OF 
*. CONTROLLED 
*. CHAIN . 


****C2********* 

nUr 


****E1 ********* 

CONTINUE 
SCAN OF 
STATIC 
CHA IN 


***** 02 ********** 


_ f URE* 

* IF NECESSARY * 

***************** 


**•••£ 2* ********* 

* RUT DOPE * 
•VECTOR ENTRY IN* 

* STAT IC CHAIN. *... 


***************** 


DOPE VEC. . 
•ENTRY. [NCLUO 
♦WHOLE STRUCTU 
* IF NECESSARY 


YES .* ANYTHING *. NO 
....*. IN STRUCTURE .*... 
*. REQUIRE .* 

*.D. V. .* 


••*••0** ********* 

* INCLUDE OOPF * **** 

•VECTOR ENTRY IN* * 

* STATIC CHAIN. *....X* A2 


**++*+£*4 


END5J3 


*• 

.♦'SKELETON *♦. YES 
*. ARGUMENT 

*♦• •♦* 

*• • * 

♦ NO 


G2 ♦. 

* * 

ARRAY 


SKARGl 

*****F 3*********' 

♦ ALLOCAT' 


h Hunt 1 of 

STORAGE 

EQU1RE0 


*. YES 

STRUCTURE .*. 

. • 




•****q 3 ********** 

* ALLOCATE * 

* STORAGE. * 

X* CALCULATE *. 

* NUMBER OF * 

* ELEMENTS * 

«•••***•*•**•*•** 


*•••*^3 ********** 

* ALLOCATE * 
WORK * 


*****GA********** 

* IF VIRTUAL * 

* ORIGIN IS -VE * 

*: DE^SidfE 

.w«.mi«**: 


*********** 


*****H4*** ******* 

• x ** D0 ^E v |iS?5AE OR :* 

******83lSKi**.*: 


*♦ * J !♦*♦♦•♦♦♦•! 


***** 
*PL * 

VI* 
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Chart PL. Phase PL Overall Logic Diagram 


***** 
*PL * 
* Al* 


* SCAN CHAIN * 

* OF STATIC *X 

* VARIABLES * 

*********** ****** 


**** 

* Al * 


***************** 


•* DOES * 
•* VARIABLE 
*• REQUIRE 
*. DED 


***************** 


. YES 

B3 *- 
.* DOES 
► VARIABLE 
REQUIRE 
*• SYMBOL 
♦•TABLE.* 
*• • * 


*• 


* SCAN CHAIN * 

* OF CONTROLLED * 

* VARIABLES * 

* * 
***************** 


dedal! * X 

DEDAL2 

*****£ 2 ********** 


***************** 


YES 

• *• 

D2 *• 

.* DOES *• 
.* VARIABLE 
►X*. REQUIRE 
*. DED 


* ALLOCATE * 
i* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 


VARIABLE 
REQUIRE 
, SYMBOL • 
♦•TABLE* * 


***************** 


NO 

F2 * **• 
.* DOES * 
CONSTANT 
REQUIRE 
. DED 
*• •* 


***************** 


:scan 

*****(31 ********** 

♦ SCAN CHAIN * 

♦ OF PFOCEDURE * 

♦ AND BEGIN * 

♦ BLOCKS * 

♦ * 
***************** 


* SCAN CHAIN * 
•X* OF AUTOMATIC *X 

* VARIABLES * 

* * 
***************** 


•* DOES *. 

♦ VARIABLE *. NO 
REQUIRE • *••• 
*• DED • * 


G* 


• *• 


** 


DEDAL!, 

OEDAL2 X 

*****H 3********** 


.* DOES 
•* VARIABLE 
*X*. REQUIRE 
*• SYMBOL • 
♦•TABLE** 
* 0 e * 

♦ YES 


***************** 


* ALLOCATE * 
»* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 


***** 
*pp * 

* Al* 
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:hart PP. Phase PP Jverall Logic Diagram 


***** 
*pp * 

* M+ 


***** A 1 ********** 


***************** 


Bl *. 

• * IS *. 
.* THERE 
» AN ENTRY 
*.^TYPE 1 

*♦. .** 

* YES 


X 

***** 
*PT * 
* Al* 


♦*** 

* * 

* C2 * 

* * 
**** 


AUTO 

HAIN 


****************1 


***«* 0 ) ********* 


HAKE 

.T CHAIN 
DELIMITER 


X#.* AUTO CHAIN 


**************** 

**** 

* • 

* El *••• 


ERE A 
..*• DEPENOENT 
CHAIN • 


*****E2 ********** 


***************** 


*****P1 ********** 

* * 

* ADD TO * 

* INDEPENDENT *X 

* CHAIN * 

* * 
***************** 


*****G2 ********* 


.*X..... •••♦DEPENDENT CHAIN 


**** 

* * 

* E2 * 

* * 
**** 


• * 

• • * 

* YES 


■*rnu 
**• 


***************** 


***** 04 *********: 

* PLACE IN 
X* INDEPENDENT 

* CHAIN 

* 1 
**************** 




T ABLE *. YES 
EM 

. • 


SCNCHN, SRCH2 
SRCH2 

***«*F4********** 

* DEPEnHInC !?S * 

..X* IN CURRENT *. 

* DEPENDENT * 

* CHAIN * 

**«***A********** 


*****G4********* 

* COMBINE 

* ON CHAIN 

X* AND 

* INDEPENDENT 

* CHAIN 
****************: 


* ADD TO * 

<* DEPENDENT * 

* CHAIN * 

* * 
***************** 


.* ANY *• 

.* ITEMS *. YES 
. ADDED TO •*•••• 
*• IND. CHN .* 


scRuai 

***«*H2 ********** 
* REMOVE * 

INDEPENDENT * 


*****H 3 ********** 

* ADO * 

* INDEPENDENT * 

X* CHAIN TO *. 

* AUTO CHAIN * 

* * 
***************** 


***** H 4« ******** 


* DELIMITER 

* 

**************** 


>*♦** ji********* 

ERROR 


**** 

* * 

* El * 

• * 
**** 
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Chart PT. Phase PT Overall Logic Diagram 


**** A 1* *+****♦♦* 

OF LARGEST * 


****«B1* ********* 
* * 

* PICK UP FIRST * 

* ENTRY TYPE 1 * 

* IN El CHAIN * 

* * 
***************** 


*3 * 

•****C1****«« 

* ALLOCATE 

♦ STANDARD 


01* *•# *****02 *i******** 

.* *. *ALLOCATE 8-0YTE* 

.* ON *. YES * SLOT AND * 

*. CONDITION ,*,.. X* COMPILE CODE * 

*. ENTRIES .* * TO INITIALIZE * 


***************** 


DSAIO X 

****«E 1 ********* 

* ALLOCATE 6 

* WORDS FOR 

* ADORESSING 

* VECTOR 


**«**F2 ********** 


***************** 


* ALLOCATE * 

* PSEUDO-CODE * 

* WORKSPACE * 

* * 
*•* ************** 


*. DOPE VECTOR .*. 


DSA17 

****«H2 ********** 

* ALLOCATE * 

* PARANL 1ST * 

...X* ANO 'BUY* * 

* WORKSPACE * 


***************** 


. * *. **** 

, * *. NO * * 

. PROC .*.... X* ET * 
*. ,* * * 
*. ,\* **** 
*. . * 

* YES 


*** **a* ****•*••*: 


.X* ONE WORD 


****** •*»*•*«*** 


**•••£ 3 ********** 

* GET NEXT El* * 

* ENTRY IN * 
♦CIRCULAR CHAIN * 

* * 
**** **♦♦**♦***♦•* 


NO .** IS THIS 

if ferv 1 


*E3********** 
* * 

* ALLOCATE * 

: : 

* * 
** *************** 


* ALLOCATE * 

* STORAGE * 

* REQUIRED * 

* * 
***************** 


* COMPILE CODE * 
o* TO INITIALIZE * 

* DOPE VECTOR * 

* * 
***************** 


***************** 


* ALLOCATE * 

* CHAR STRING * 

* STORAGE * 

* * 
***************** 


ALLOCATE 
JIT STRING 
STORAGE 


* ALLOCATE ♦ 

* STORAGE FOR * 

* ARRAYS * 

* * 
***************** 


* ALLOCATE * 

* STORAGE FOR 

* STRUCTURES * 

* * 
***************** 


***************** 


*954 • 

*****E5* ********* 


***************** 


* STORE DS A * 

* SIZE IN * 

* ENTRY TYPE 1 * 

* * 
***************** 


* RELEASE * 
►X* TEXT RLOCKS * 

* AND CONTROL + 

* * 
***************** 
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Chart QF. Phase QF Overall Logic Diagram 


QFOOOO \ 

•****A1** 



A4 *. *****A5********** 

.* *. *PLACE OELIMITFR* 

.* *. yes * 2N0 Pile * 

..K*.^OELIMITER^ SjXT^fNT J 


*. YES 

.* 5 


.* *. 
YES .* FtRST *. 
ZONE 

*, ,* 

* NO 


EXTRACT EXTENT 
EXPRESSIONS 
FOR ITEM 
FROM 2NO 


****«C ;********** 

* SKIP 2ND * 

* FttF TEXT * 

* TO FIRST * 

* STATEMENT * 


QF1215 

04 *. 

*♦** ,* *, 

* • NO .* DOES * 

* A3 *X....*. ITEM NEEO 

* * X *. STORAGE .< 


**** 

QF1194 

»+**«05 ********** 

* EXTRACT * 

* MAPPING * 


W'W 


««***********++* 


*+*£ 2 ++**++***+ 

GENERATE * 

f8 mt 


*• •* 
* NO 


x : f p s nt 

: 

*#«++***+****« 


| liiH 


ANL 


*****£4********* 

* GENERATE 

* CODE TO 


.* *. YES * COOE TO 

.* XSorIsS IN 

*, .* * Rll 

*. ,* **************** 




X....*. FIRST .* 
*. IN ZONE .* 

*. „• 

*. .* 

* YES 


<,F 1 *il**P5««******** 

: a$™s : 

* MAPPING CODE * 
***************** 


....X* A1 • 
X * * 

. *••* 


G p E R \ T s 

COPY ARG 


*i* proc 

’*•*. .*• 
* NO 


* AND TARGET 

* ADDRESSES 

************** 


*'*. YES .**JH§r| E A|JX**. yes SS&hnjij 7 IrS^oIT * 

.* x %> Ir ? 4 feSest 

• *. .* *FQR EACH ENTRY * 

*. .* ***************** 
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Chart QJ. Phase QJ Overall Logic Diagram 


**«*♦ A 1 ********** 


**** ******* ****** 


► * ADJUST *. YES 
, ARRAY OR .*«••• 
*• STRUCT •* 


*. **** 

ALL *a YES * * 

STAR • ♦••••X* G4 * 


***************** 


**** ************* 


„ * * # 
•♦ADJUSTABLE *. NO 
*. ARRAY OR .♦... 
♦„ STRUCT .♦ 


13. HY14 X 

**** *Hl ********** 


BY1 5 X 

*****p 2 ********** 

♦ SET SIZE * 

♦ ANO GENERATE ♦ 
...X* CALLING * 

♦ SEQUENCE * 


***************** 


*****S2********** 

* GENERATE * 

* DOPE VECTOR ♦ 

* RELOCATION ♦ 

* CODE ♦ 

* ♦ 
***************** 


BNDEXP X 

**«**« 4 *** ******* 

, ♦ EXTRACT * 

*. NO * SXTENf * 

.♦ XP 2ND FILE * 

. ♦ ♦ STATEMENTS * 

* * 
***************** 


*****£ 4********* 

* EXTRACT 

* MAPPING 

* CODE FROM 

* 2ND FILE 

* 

**************** 


.♦ NON ♦. 

.♦ STRING ♦. NO 
*. SCALAR .♦... 


*****E3*********i 

* DETERMINE 

* SIZE, AND 

* GENERATE 

* CALLING 

* SEQUENCE 
**************** 


. ♦ STAR ♦. NO 
♦ . STRING .♦... 


*«***G ’,**** ****** 
* * 

♦ EXTRACT 2ND ♦ 

* FILE ♦ 

♦ STATEMENT * 

* ♦ 
***************** 


*. LENGTH .* 

*• * * 

♦ . , * 

♦ YES 

**** • 


**** , 

PREVAL X 

*****G<.********** 
* * 

* COPY ♦ 

...* OLD * 

• ♦ DOPE VECTOR ♦ 

0 * * 

X ***************** 


IBC1 X 

****«£ 5 * ********* 

♦ DETERMINE ♦ 

♦ SIZE, AND ♦ 

,X^ GENERATE ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 

***************** 


•****P5 ********** 

* GENERATE * 

* DOPE VECTOR * 

* RELOCAT ION * 

* CODE * 

* ♦ 
***************** 


X* SfAT^gENT * 

* LENGTH * 

***************** 


***************** 
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Chart QO. Phase 2U Overall Logic Diagram 


***** 

♦ QU * 

* A3* 
* * 



*•** 

» * 

* C 2 * 

* * 
•*•* 


*•*• 

* * 

* B3 ♦. 

* • 
**** 


TRANS X 

«t*«*B3*********i 

• SCAf 

NO 

“X i. 

NE 


♦♦♦♦C !*♦*♦♦*♦ 


TLA 

NO 


S 

C2 *. 

. * IS *. 

,* IT WITHIN *. 
, A CALLING . 
*. SEQUENCE .* 

**. .*’* 


N^TR 


**** 

* * 

* F2 * 

* * 
♦♦♦♦ 


LARGO .*. 

02 • 

N0^** # *_ j| S ‘ 


,* IT AN *• 

• ARGUMENT .< 
♦.REGISTER .* 

*. .* 


**** 

* 

• G2 *X 

* 

***• 


A^GSW 

X * 

• * 
4************* 


03 *. 

• * *• 

insVrn 

*. .* 
*. . * 

*• . * 

* NO 


E3 *. 
.* OTHER *. 
YES .* JNSTRN 


TLL 

DA *. 

.* IS *. 

.* IT LOAD *. 
i • • • X*# FROM ADDRESS .< 


05 




*. 


*V 


|Cf0f 


**** 

* * 

* C2 * 

* * 
**** 


.* IT WITHIN *. 

A CALLING •< 

♦•SEQUENCE .* 

♦. . * 

♦. .♦ 

* YES 


*♦** 

* * 

* F2 *X. 

* * 
**** 


65 *. 

»♦ ♦• 

IS IT *. 

L 15, ENTRY .♦ 

*♦• •♦* 


**** 

* * 

* F2 *.. 
► * 

**** 


ALGREF 
NO .** 


*set f alTgn5ent’' 

AcggSHfSfTO 

INSTRUCTION 


**** . 
* * . 

* G2 *.X. 

* * * 
**** X 


. 

• G ls IT**. 

A PACKED ». 


G2 


Nt>NpR?NG1 .*X... .....* 


.VARIABLE .* 
*, . * 

♦. .♦ 

♦ YES 


gpf^ANO***. NO 


,* 

. OF 

*. 


****F ********** 

* finish output * 
,x* release text * 
•RELiASE control* 

*************** 


•****F 5 ********** 


ENCE.* 

.* 

.* 


* B3 * 

• * 
***• 


HI 


*. 


DE0SW *. YES 
OR ARGSW .*.... 
, SET .* 

*• •* 

*• .* 

* NO 


***«*H2 ********** 

>x : libras s 

•DED OF VARIABLE* 


ALREGQ 


H3 


. *• 


YES .* REgIsIeR *. NO 

....*. WITH NON- .*... 
*. ALIGNED .* 

*. ADDR .* 

*• •* 


***** 
*QX * 
* A2* 


**** 

* 4 

* B3 * 

* 4 
**** 




J1 *. 

.* *• 

.* IS *. NO 
*. ALIGNHENT 
*. O.K. .* 

*• •* 

*. • * 

* YES 


• *** 

* * 

* B3 » 

* • 
•**• 


ADEDQ 

. ** 


REGENT 5t 

***«*K2 ********** 

* NOTE REGISTER * 

* LOAOED BY THE * 

* INSTRN. ANO *.... 
•OPERAND ALIGN- * 

* MENT REQUIRED * 

•••**•******•***• x 
**** 


. X*. ARGSW •*.. 
*• .♦ 

♦» •♦ 



***************** 


* 83 * 
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:riart QX. Phase 3X Overall Dogic Diagra.tt 


****d********* 


* AUTOMATIC AND * 

* CONTROLLED * 

* CHAINS IN * 

* DICTIONARY ♦ 

***************** 


•****B2 ********** 
* * 

* GET HEAD OF * 

• STATIC CHAIN * 


***************** 


*****B4******* 


.* HAS T *. 

, X*. STAT C 

*. CHA N .* 


* YES 

.*, 

C* *. 

.* *. 

.* HAS IT *. 
,X*. CONTROLLED .* 
*. CHAIN .* 


♦****B 5* ********* 


***************** 


D2 *. 

.* *. 

.* IS * 

♦.COBOL SWITCH 
*. ON .* 


.* IS IT *. 

NO • *ENTRY FOR A*. 


* ANALYSE OICT! * 

* ENTRY FOR AN * 

* AGGREGATE * 

* * 
A**************** 


.*. 

D3 *. 

.* IS IT *. 

,* ENTRY FOR *. 
A COBOL MAJOR-. 
♦.STRUCTURE.* 
*. . * 

*. .* 

* YFS 


***** r, 4 ********** 

* AUTOMATIC CHAIN* 

* FINISHED. GET * 

* NEXT ENTRY IN * 
♦PROCEDURE CHAIN* 


***************** 


♦.COBOL SWITCH . *. 


****•£ 5 ********** 

* GET HEAD OF * 

* AUTOMATIC * 


***************** 


****«P5 ********** 
* • 

* GET HEAD OF * 

<* CONTROLLED ♦ 

* CHAIN * 

* * 
***************** 
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•Table PA. Phase PA DSAs in STATIC Storage 

r 


T T 

| Main Processing 
Routine 


Statement or Operation Type 


-+- 


+- 


>ubroutines Used 


Scans Entry Type 1 chain for blocks |PADSA 
eligible for STATIC DSAs | 


DSASI Z , DVSI ZE 


+ - 


Makes a dictionary entry for each | DICENT 
STATIC DSA | 


None 


+■ 


Sorts STATIC chain (called from PD)|SCSORT 


None 


Scans STATIC chain for INTERNAL 
arrays; calculates number of ele- 
ments for those arrays needing 
initialization. Allocates storage 
for arrays and, if necessary, for 
secondary dope vectors 


I ARRSCN 


None 


iTable PAl . Phase PA Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 


Function 


f + ^ 


Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
and secondary dope vectors (called from PH). 

Makes a dictionary entry for each STATIC DSA. 

Calculates size of DSA excluding Register Allocator Workspace. 

Scans AUTOMATIC chain for variables requiring dope vectors, and 
calculates size of dope vectors. 

Determines eligibility of a block for a STATIC DSA. 

Sorts STATIC chain (called from PD) . 
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Table PD. Phase PD Storage Allocation Static 1 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Reverses second file dictionary 
pointers 


j Sorts STATIC chain 

f 

(Allocates storage for simple, non- 
(structured, non-external items 


SCSORT (in PA) 


STATIC 


SDSA1 


Allocates dope vectors for all 
non-external items 


DVALOC 


(Allocates 4-byte addressing slots; 
j calculates control section size for 
(all external items 

j. 

(Allocates storage for constants. 


TVALOC 


STRCDV 


CONALC 


Table PD1 . Phase PD Routine/Subroutine Directory 


j Routine/Subroutine j 


Function 


CONALC 


DVALOC 


NXBLCK 


SDSA1 


SCSORT 


STATIC 


STRCDV 


TVALOC 


Allocates storage for constants. 

Allocates dope vectors for all non-external items. 

Obtains next text block. 

Scans text file and reverses second file pointers. 

Allocates a 4-byte address slot for each STATIC USA. 

Sorts STATIC chain. 

Allocates storage for simple, non-structured , non-external items. 

Allocates relative offsets of structure member dope vectors. 

Allocates 4-byte addressing slots; calculates control section size 
for all external items. 
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Table PH. Phase PH Storage Allocation Static 2 

r* 


Statement or Operation Type 

"T ~ 

|Main Processing 
| Routine 

X 

T 

| 

1 

X 

Subroutines 

Used 

Scans AUTOMATIC chain; allocates 
dope vector 

T 

jPBSCAN 

i 

-4- 

T 

| AUTO 4 , 
j TEMPDV 

X 

SKDV1 , 

SKENT3, 

STRSCN, 

Scans CONTROLLED chain 

1 

| CONSCN 

X 

1 

| AUT04 , 

X 

SKDV1 , 

STRSCN 


Allocates storage for skeleton 
argument lists appearing in STATIC 
chain 

I 

| SKARGL 

i 

i 

-j- - 

1 

| None 

1 

1 

x 




Scans STATIC chain for INTERNAL 
arrays; calculates number of 
elements for those arrays needing 
initializing. Allocates storage 
for arrays and, if necessary, for 
secondary dope vectors 

| ARRSCN (in PA) 

1 

1 

1 

1 

1 

X 

| None 

1 

1 

1 

1 

j 




Scans STATIC chain for INTERNAL 
structures. Calculates number of 
elements in structured arrays need- 
ing initializing. Calculates size 
of storage for all structures and 
bumps location counter. 

|STRALO 

i 

i 

! 

.± 

| None 

1 

1 

1 

1 

1 
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•Table PHI. Phase PH Routine/Subroutine Directory 


| Routine/Subroutine | 


Function 


ARRSCN (in PA) 


AUTEND 


AUTO 4 


CONSCN 


CSCN2 


END513 


SKARG1 


SKDV1 


SKENT3 


STRALO 


STRSCN 


TEMPDV 


Scans STATIC chain tor INTERNAL arrays; allocates storage for arrays 
and secondary dope vectors. 

Tests for end of AUTOMATIC chain. 

Calculates size of dope vectors for dynamic temporaries and CON- 
TROLLED variables. 

Scans CONTROLLED chain. 

Tests for end of STATIC chain. 

Stores STATIC location counter and releases control. 

Scans AUTOMATIC chain; allocates dope vectors. 

Gets next item in chain. 

Allocates storage for skeleton argument lists appearing in STATIC 
chain . 

Allocates storage required. 

Creates skeleton dope vector dictionary entries for non-structured 
variables in AUTOMATIC and CONTROLLED storage. 

Constructs skeleton dppe vector dictionary entries for function 
values . 

Calculates number of elements in structure arrays to be initialized; 
calculates size of storage for all structures. 

Creates skeleton dope vector dictionary entries for structures in 
AUTOMATIC and CONTROLLED chains. 

Creates skeleton dope vector dictionary entry for temporary work- 
space . 
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Table PL. Phase PL Storage Allocation Symbol Table and DEDs 


r — 

| Statement or Operation Type 

1 

T “ T “ ■ 

|Main Processing! 
j Routine j 
± x 

Subroutines Used 

r 

(Allocates STATIC storage for all 
(symbol tables and DEDS 

1 

T 

| IEMPL 

1 

T 

| BCSCAN, 

1 

CCSCAN, 

CNSCAN, SCSCAN 

r 

| Scans STATIC chain for symbol and 
| DED variables 

1 

1 

| SCSCAN 

1 

| . 

| DEDAL1 , 

1 

_i . . 

STRSCN, 

SYMTAB 

1 

| Scans CONTROLLED chain for symbol 
(and DED variables 

| 

| CCSCAN 

1 

1 

( DEDAL1 , 

1 

| 

STRSCN, 

SYMTAB 

r _________ 

| Scans PROCEDURE block chain of 
| ENTRY type 1 entries 

i _ 

j 

( BCSCAN 

1 

-1 

| ACSCAN, 

1 

_L 

DEDAL1 


1 

| Scans AUTOMATIC chain for symbol 
j and DED variables 

1 . _ _ 

1 

| ACSCAN 

i 

i 

T 

| DEDAL1 , 

1 

| 

STRSCN, 

SYMTAE 

1 

| Scans chain of members of particu- 
lar structure for symbol and DED 
| variables 

l 

T 

| STRSCN 

1 

1 

4 

1 

| DEDAL1 , 

1 

1 

SYMTAE 


i 

(Allocates storage for symbol tables 

(SYMTAB 

1 

( DEDAL2 

-L . 



(Allocates storage for DEDS 

i _ 

| DEDAL (two 
(entry points: 
(DEDAL1, DEDAL2 ) 

X _ 

1 

( None 

1 

1 

x _ 




Table PL1. Phase PL Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 




Function 




AC SCAN 

BCSCAN 

CCSCAN 

CNSCAN 

DEDAL1 (PM) 

IEMPL 

SCSCAN 

STRSCN 

SYMTAB (PM) 


Scans AUTOMATIC chain for symbol and DED variables. 

Scans procedure block chain of ENTRY type 1 entries. 

Scans controlled chain for symbol and DED variables. 

Scans constants chain for DED variables. 

Allocates storage for DEDs. 

Allocates STATIC storage for symbol tables and DEDs. 

Scans STATIC chain for symbol and DED variables. 

Scans chain of members of particular structure for symbol and DED 
variables . 

Allocates storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 


f- 

Scans BEGIN-ENTRY for ENTRY type 1 
entries 

I- 

Scans AUTOMATIC chain froir. each 
ENTRY type 1 entry 


Statement or Operation Type 


T T 

Main Processing 
Routine 


+■ 


Subroutines Used 
SETCH, SCRUEl , SORCH 


RAO 


SETCH 


h 

Adds ON conditions to first AUTO- 
MATIC zone 

f. 

Adds temporaries (type 2) and inde- 
pendent items to first zone 

H- 


EXDT, SRCH2 


+ ■ 


SC24 


None 


SC 31 


None 


Adds dependent items to subsequent 
zones 

f 

Determines list of dependencies 
from INITIAL attribute 


SC 4 4 


None 


+- 


SC39 


j. 

Determines list of dependencies 
from DEFINED attribute 

j. 




SCNCHN, SRCH2 


SC4 0 


SCNCHN, SRCH2 


+■ 


Determines list of dependencies for 
array bound expressions 


SC 3 5 


EXDT, SCNCHN 


Determines list of dependencies for 
string length expressions 


SC50 


SCNCHN, SRCH2 


■ + 




Removes independent item dictionary 
references upon which items in the 
AUTOMATIC chain depend. 

L 


SCRUB1 


None 
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Table PP1. Phase PP Routine/Subroutine Directory 


r t 

| Routine/Subroutine j 

j. 1 

EXDT | Scans dimensions tables for second file statements with adjustable 

j bounds . 

I 

RAO | Scans EEGIN-ENTRY for entry type 1 entries. 

I 

RA1 | Tests for end of ENTRY type 1 chain. 

I 

RA4 | Creates an AUTOMATIC chain delimiter. 

I 

RA7 |Tests for end of chain. 

I 

SCNCHN | Scans current AUTOMATIC chain; determines whether reference belongs 

j to it. 

I 

SCRUBI (Removes independent item dictionary references from the stack of 

(dictionary references upon which items in the AUTOMATIC chain 
| depend. 

I 

SC24 | Adds ON conditions to first automatic zone. 

I 

SC31 (Adds temporaries (type 2) and independent items to first zone. 

I 

SC35 (Determines list of dependencies for array bound expressions. 

! 

SC39 (Determines list of dependencies from INITIAL attribute. 

I 

SC40 (Determines list of dependencies from DEFINED attribute. 

I 

SC4 4 | Adds dependent items to subsequent zones. 

I 

SC50 (Determines list of dependencies for string length expressions. 

I 

SETCHN (Scans AUTOMATIC chain from each ENTRY type 1 entry. 

I 

SORCH (Sorts chain in order of dependencies; creates zone delimiter dic- 

tionary entries. 

I 

SRCH2 | Scans second file statements for dictionary references of labels, 

(data, items, and structures, which may belong to the current AUTOMAT- 
IC chains. 


Function 
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Table PT. Phase PT Storage Allocation AUTOMATIC Storage 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Scans stacked CONTROLLED chain for 
largest dope vector 


MYNAM 


D V SIZE 


+ - 


Initializes ENTRY type 1 chain scan 
and DSA 


DSALOC 


MKSTAT 


Allocates slots for ON condition* 


DSA 4 


MKSTAT 


Allocates storage for workspace and 
for DSA addressing vector 


DSA10 


None 


Scans AUTOMATIC chain and alldcates 
storage for dope vectors 


DSA16 


COPY, DVSIZE , INITDV , MKSTAT, 
STD VI N 




Allocates BUY workspace 


DSA17 


None 




Allocates storage for parameters 


DSA19 


None 


4 


Allocates storage for double preci- 
ion variables 


DSA25 


None 


4 


+- 


Allocates storage for single preci- 
sion variables 


DSA29 


None 


+■ 


Allocates storage for character 
strings 


DSA 3 8 


None 


4 


Allocates storage for bit strings 


DSA46 


None 


k 

Allocates storage for arrays and 
secondary dope vectors 


4 


4 - 


DSA54 


COPY, INITDV, MKSTAT, SDVCDE 


|. 

Allocates storage for structures 


DSA6 8 


4 


COPY, MKSTAT 


Gets VDA and initializes dope vec- [ DSA72 
tors for adjustable regions of 
AUTOMATIC chain 

h -f 

| Allocates storage for DEFINED items |DSA98 

L X 


COPY, INITDV, MKSTAT, STDVIN 


None 
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Table PT1 . Phase PT Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 


CONTI 

COPY 

DSALOC 

DSA4 

DSA5 

DSA10 

DSA16 

DSA17 

DSA19 (PU) 

DSA25 (PU) 

DSA29 (PU) 

DSA38 (PU) 

DSA46 (PU) 

DSA54 

DSA68 

DSA72 

DSA74 

DSA98 

DSA161 

DSA162 

DSA952 

DVSIZE (PU) 

INITDV 

MKSTAT 

MYNAM 

SDVCDE (PU) 
STDVIN 


Scans controlled chain for size of longest dope vector. 

Compiles code to copy skeleton dope vector into real dope vector. 
Initializes ENTRY type 1 chain scan and DSA. 

Allocates slots for ON conditions. 

Allocates standard save area and flag bytes. 

Allocates storage and workspace for DSA addressing vector. 

Scans AUTOMATIC chain and allocates dope vectors. 

Allocates BUY workspace. 

Allocates storage for parameters. 

Allocates storage for double precision variables. 

Allocates storage for single precision variables. 

Allocates storage for character strings. 

Allocates storage for bit strings. 

Allocates storage for arrays and secondary dope vectors. 

Allocates storage for structures. 

Initializes dope vectors for adjustable regions of AUTOMATIC chain, 
Stores pointer to skeleton second file statement. 

Allocates storage for DEFINED items. 

Allocates storage required for dope vectors. 

Compiles code to initialize dope vectors. 

Gets VDA for this region of AUTOMATIC chain if required. 

Determines size of dope vectors. 

Compiles code to initialize address slot in dope vector. 

Makes a second file statement. 

Scans CONTROLLED chains. 

Compiles code for secondary dope vectors. 

Initializes structure member dope vectors. 
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Table QF. Phase QF Storage Allocation Prologues 


r t t 


j Statement or Operation Type 

i 

jMain Processing) 
j Routine j 

_L _L 

Subroutines 

Used 

r 

| Scans text for statement labels, 
(PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and 
j end-of -program marker 

i 

T 

j QF0000 

1 

1 

1 

T 

( QBEGEP, 

1 QSL 

1 

1 

1 

QBPROL, 

QECP, 

QMOVE, QPROL , 

1 - 

(Processes statement label pseudo- 
j code items 

1 

| 

|qsl 

1 

i . 

T 

| QMOVE 

1 




f 

| Frees text storage at end of phase; 
(releases control 

i 

i QECP 

1 

1 

| 

j QMOVE 

1 

1 




r 

| Creates stereotyped prologue for a 
j BEGIN block requiring a dynamic 
j storage area 

i _ . _. ... _ 

1 

| QBPROL 

1 

1 

4 

I 

(QADJAL, 

1 

1 

4 

QFSKIP , 

QF0201 

, QMOVE 

1 

| Creates stereotyped or special 
(prologues for PROCEDURE statements, 
(depending on conditions. Processes 
j statement label pseudo-code items 

i . 

r 

(QPPROL 

1 

1 

1 

4_ _.. 

| QADJAL, 

| QONPRL 

1 

1 

... | 

QFSKIP, 

QF0201 

, QMOVE, 

r 

(Creates a compiler label marking 
j the return from a BEGIN block 

i _ 

1 

IQBEGEP 

1 

l 

1 

( QADJAL, 

1 

4-. 

QF0201, 

QMOVE 


l_. 

(Creates a prologue for ON block 

1 __ 

1 

( QONPRL 

4 _ _ 

1 

) QADJAL, 

QFSKIP, 

QF0201 


1 - - — -■■■ - 

(Assembles code to initialize DBA 
(dope vector data areas, and to 
(allocate variable data areas 

l . ... _ 

1 

| QADJAL 

1 

1 

4 

j QMOVEl 

1 

-1- 




1 

| Skips second file statements 
j following a block heading statement 

l . 

1 ‘ 

IQFSKIP 

1 

T 

| None 

i 

4_ 




i ■ 

(Obtains new buffer and chains it to 
| the previous one 

l . . . . 

j .... 

j QF02 01 

1 

1 

1 

| None 

1 

-l 




| Moves input text being skipped from 
j input buffer to output buffer 

l . 

T 

| QMOVE 

1 

1 

1 

| None 

i 

4 




r 

| Moves a second file statement, 
j pointed at by PARI, to the prologue 
j being generated 

T 

( QMOVEl 

1 

1 

T 

| QMOVE 

1 

1 





A 

-I 

A 

A 

A 

■I 

A 

■I 

A 

•I 

A 
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Table QF1. Phase QF Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 

h 


Function 


QADJAL 

QBEGEP 
QBPROL (QG) 

QEOP 

QFSKIP (QG) 

QF0000 

QF0201 (QG) 

QF0360 

QF0370 

QF0570 

QF0625 

QF0860 

QF1172 

QF1194 

QF1215 

QF1511 

QMOVE 

QMOVE1 

QONPRL (QH) 

QPPROL (QG) 

QSL 


Assembles code to initialize DSA dope vector, variable data areas, 
and to allocate variable data areas. 

Creates a compiler label marking the return from a BEGIN block. 

Creates stereotyped prologue for a BEGIN block requiring a dynamic 
storage area. 

Frees text storage at end of phase; releases control. 

Skips second file statements following a PROCEDURE or BEGIN state- 
ment . 

Scans text for statement labels, PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and end-of-program marker. 

Moves code to output buffer; obtains new buffer if required. 

Tests for external procedure. 

Generates prologue for GET DSA. 

Generates code to copy argument and target addresses. 

Tests for entry points. 

Tests end of chain. 

Tests end of first region. 

Extracts mapping code from second file. 

Tests for storage required. 

Removes VDA accumulator assignment cede from mapping code. 

Moves text from input buffer to output buffer. 

Moves second file statement to prologue being generated. 

Creates prologue for CN block. 

Creates stereotyped or special prologues for PROCEDURE statements, 
depending on conditions. 

Processes statement label pseudo-code items. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 


T T 

Main Processing 
Routine 

— +■ 


Statement or Operation Type 


Subroutines Used 


General scan of text for ALLOCATE, 
BUY and FREE statements 


GS1 


ALLOC, BUY, 3UYP , FREL, TRF1 . 


+- 


+■ 


Allocates items not requiring dope 
vector 


AL20 


AL1 5 , TRF2 


+ ‘ 


Generates code to move skeleton 
dope vector into workspace for 
controlled variables 


MOVEDV 


TRF2 


+ ■ 


Looks ahead to reverse pointers for 
ALLOCATE statements 


REVPT 


GS1 , TRET 


+ - 


Allocates storage for controlled 
string 


AL2 8 


GS1 , LIBC1 , LIBC2, SCANSF, TRF2 


Allocate storage for controlled 
array 


AL27 




ABOUND, LIBC1, MOVEDV, PREVAL, 
SCANSF, TRF2 


Allocates storage for controlled 
structure 


AL29 


BNDEXP, LIBC1, MOVEDV, NXTREF, 
NXTVAR , PREVAL, SCANSF, TRF2 


Loads Library call parameter reg- 
ister to free allocated storage 


FREE 


TRF2 , TRF3 


+- 


Moves skeleton dope vector for 
bought temporary 


BUYP 


TRF2 


■ + 




Buys storage for temporary array 


EY14 


SCANSF, TR1 2 


-+- 


Buys storage for temporary struc- 
ture 

h 

Places initial value code line for 
controlled variables 


BY1 3 


LIBC4, NXTREF, NXTVAR, SCANSF, TRF2 




ALl 5 


NXTRF , SCANSF 


Skips scan register over initiali- 
zation statements 


SKIPTX 


GS1 


I- 

Generates code to set a pointer to 
the previous allocation. 


4 


PREVAL 


TRF2 


h 

Searches dimension tables for 
adjustable bound expressions 


ABOUND 


SCANSF 


\- 

Generates code for temporary varia- 
bles requiring only a dope vector 

L 


STMP 


LIBC3, TRF 2 
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Table QJ1. Phase QJ Routine/Subroutine Directory 


r T - 

I ROUTINE/SUBROUTINE I 


FUNCTION 


h 


ABOUND (QK) 

ALLOC (QK) 

AL15 

AL20 (QK) 

AL27 (QK) 

AL28 (QK) 

AL29 (QK) 

BNDEXP 

BUY 

BUYP 

BY13 

BY14 

BY15 

FREE (QK) 

GS1 

LIBC1/LIBC2/LIBC4 

MOVEDV (QK) 

NXTREF (QK) 

N XT VAR (QK) 

PREVAL (QK) 

REVPT 
SCANSF 
SKIPTX 
STMP (QK) 

TRF1 

TRF2 

TRF3 


Searches dimension tables for adjustable bound expressions. 
Ascertains the type of allocate statement. 

Places initial value code line for controlled variables. 

Allocates items not requiring dope vector. 

Allocates storage for controlled arrays. 

Allocates storage for controlled strings. 

Allocates storage for controlled structures. 

Generates or extracts code to set the adjustable bounds of struc- 
tures . 

Ascertains the type of ouy. 

Moves skeleton dope vector for bought temporary. 

Buys storage for temporary structure. 

Buys storage for temporary array. 

Buys storage for temporary string. 

Loads Library call parameter register to free allocated storage. 

General scan of text for ALLOCATE, BUY, and FREE statements. 

Places the library calling sequence for controlled storage in 
sequence in the text. 

Generates code to move skeleton dope vector into workspace for con- 
trolled variables. 

Obtains the next structure base element reference. 

Obtains the next varying array base element reference. 

Generates code to set a pointer to the previous allocation. 

Looks ahead to reverse pointers for ALLOCATE statements. 

Places second file statement in line in the text. 

Skips scan register over initialization statements. 

Generates code to buy storage for temporary variables which only 
require a dope vector. 

Transfers input text to output. 

Adds text skeletons to the output text. 

Adds the Library calling sequence to the output text. 
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•Table QX. Phase QX Print Aggregate Length Table 


r 


I h 
I I 
I I 
I h 


Statement or Operation Type 

T 

|Main Processing 
j Routine 

i 

1 

| Subroutines Used 

l 

Scan storage chains in dictionary 
for aggregate entries 

t 

j SCANC 

1 

1 

T 

| ANAGG 

1 

4 . . _ . 

Analyze aggregate dictionary 
entries and print table entry 

T 

j ANAGG 

1 

X 

I 

| ANCOB , FINALA , FIRSTA , FORMAL , GETVO , 
j GETSB , PRALEN , PRBED , VOPLUS 

X 


•Table QX1. Phase QX Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 

h 


Function 


ANAGG 

ANCOB 

FINALA 

FIRSTA 

FORMAL 

GETVO 

GETSB 

PRAIEN 

PRHED 

SCANC 

SETPH 

VOPLUS 


Analyzes dictionary entries for a major structure or non-structured 
array. 

Finds original major structure dictionary entry for a COEOL major 
structure. 

Calculates address of final basic element of a major structure. 
Calculates address of first basic element of a major structure. 
Calculates length of a non-structured array. 

Gets virtual origin of a dimensioned variable. 

Sets pointer to BCD in a dictionary entry. 

Prints an entry in the Aggregate Length Table, and gets statement 
number . 

Prints main heading of table. 

Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for 
aggregate entries. 

Prints first page heading and sets print buffer for subsequent page 
headings. headings. 

Calculates address of first or last element of major structure. 
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:hart 09. Register Allocation Logical Phase Flowchart 


***** 
*09 * 
* Al* 


♦****A I********** 

♦FIRST SCAN RA* 

*-*-*-*-*-.*-*-*-* 


***************** 


*****B1**** ****** 

♦SECOND SCAN RF* 
*_*_*_*_*_*_*_*_* 
* ALLOCATE * 


X 

***** 
*10 * 
* 01 * 
* * 
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Chart RA 


Phase RA Overall Lcgic Diagram 


***» *A 1 ********** 

* GET TEXT FOR * 
♦OUTPUT £ INSER-* 

: g t !? n s&m : 


♦♦♦* ♦Bl ♦♦*♦♦♦♦♦♦♦ 


,X* INPUT TEXT 


***************** 


Cl ♦. i****C2********** 

.* *. ♦ STACK * 

.* *. YES * INFORMATION * 

♦ . PROC/8EGIN .♦. .X* FOR PREVIOUS ♦. 

*. .* ♦ PROC /BEGIN * 

*. .* * • 

*. .* ***************** 

♦ NO 


ACT 7 

****#02 ********* 

* DOWN DATE 

* STACK IN 

...X* SCRATCH 

* STORAGE 


♦****C 3********** 

: ^Ir? e ^ t ^5 s 
■ x : :• 


*. . * 

*» •* 

* NO 


.*, 

El *. 

.* START ♦. 

.* OF ♦. YES 
*. PL/I .*.... 
*» STATEMENT.* 


**************** 


.** STATEMENT**. YE 

‘•..Mfe***** 


UPSN 

**«**F 3 ********** 

* GENERATE * 

* CODE TO * 

...X* UPDATE *. 


* ******** ******** 


GENFLP 

«****c 4**** ****** 

* GENERATE * 


K* UPDATE *. 

* PREFIX * 

* ON-SLOTS * 

***************** 


DRTEST, AOTEST 

****«P2 ***** 


*:* W" 

♦INSTRUCTION* 


**«**F 4** ******** 


.* HAS *. * GENERATE * 

»*•* SSSS,,SiS N ** J , YES „* 1 

**• BERNE .** ******** * ADDRESS ♦*** 


*4^******* **+*«*; 


t**4^G2 ********** 


****** *****41** *** 




END OF 

AB ?§^ TE 


**************** 


£****H2 ********** 


DTY 5 

***«*G3 ********** 

; p sfeiiA^ v : 

* addressing * 

* instructions * 

:,*i 2 *$$ 5 & H **,*: 


U25 

****«GS* ********* 

♦MOVE ADDRESSING* 

* INSTRUCTIONS * 
...X* FROM SCRATCH *.., 


:**ts.i*"&ss* 


***************** 


ji *. 

.* END *. 

NO .* OF *. 

..*. PROGRAM .* 

*. •* 

*. , * 

*• • * 

* YES 


AOINST X 

****«H4 ********** 

♦IF WORTH-WHILE. * 
*PUT fNSTRIJCTNS * 

* IN INSERTION * 

* FILE PROLOG * 

* ELSE IN-LINE * 
***************** 


J.ADOZ X 

***** J A** ******** 

* IF IN PROLOG, * 


***************** 


iinntKA l r * 

LOAD OF * 

stdrId s *° 


***************** 
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Chart RF. Phase RF Overall Logic Diagram 


***** 
♦RF * 
* Al* 


****«A1 ********** 
♦GET TEXT BLOCK * 

“UTPUT ANO 

CH ST C 


♦FOR 0 

* SCR AT . 

* FOR LIS 

* AND STACl 


^RAGE* 


**** * 



*. PROGRAM .* 

♦• .* 

*• , * 

♦ res 


***** 
*TF * 

VI- 
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Table RA. Phase RA Register Allocation Addressibility Analysis 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Controls scan of source 


ACT1 , ACT2, ACT5 , ACT 8 , ACT 9 , 
ACTIO, ADCEUF, GETSBF 


Processes RX, RS, or SI instruc- 
tions 


ADTEST, DRTEST 


Processes SS instructions 


ADTEST, DRTEST 


Compiles code for start of PL/I 
Statement: 1. with label, 2. 
without label, 3. compiler label 


ACT15, ACT14, 
ACT16 


ADCBUF, GENFLP , UPSN 


Processes PROCEDURE and BEGIN 
blocks 


ADCEUF 


Processes END statements on PROCE- 
DURE or BEGIN blocks 


Adds text to output string 


ADCBUF 


GETCBF 


Adds text to insertion file 


ADIBUF 


Obtains new source buffer 


GETSBF 


Obtains next output buffer 


GETCEF 


Obtains next insertion file buffer 


GETIBF 


Examines dictionary reference in 
source 


DRTEST 


ADINST, DECOMP, SETBLK 


Produces recovery code when literal 
offset greater than 4095 is met 


ADTEST 


ADCEUF 


Creates coded addressing instruc- 
tions 


ADCBUF, ADIBUF 
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Table RA1. Phase RA Routine/Subroutine Directory 


r T' 

| Routine/Subroutine | 

h 


Function 


H 


ACTl 
ACT 2 
ACT 3 
ACT 4 
ACT 5 
ACT 6 
ACT7 
ACT 8 
ACT 9 
ACTIO 
ACT 12 
ACT 13 
ACT14 
ACT 15 
ACT 16 
ADD/ADD2 
ADCBUF 
ADIBUF 
ADINST 
ADTEST 
ATD 

DECOMP 
DRTEST (RB) 
DTY 

GENFLP 

GETCBF 

GETIBF 

GETSBF 

LAA 

L125 

SETBLK 

UPSN 


Copies non-special three-byte item to output. 

Copies non-special five-byte item to output. 

Processes RX, RS, or SI instructions. 

Processes SS instructions. 

End of block routine. 

Processes PROCEDURE and BEGIN blocks. 

Processes END statements on PROCEDURE or BEGIN blocks. 

End of source text routine. 

Action of start of common block of prologue. 

Action at end of prologue. 

Copies absolute code to output stream. 

Creates ADI instruction at prologue insertion point. 

Compiles code for start of PL/I statement with label. 

Compiles code for start of PL/I statement without label. 

Compiles code for start of PL/I statement compiler label. 

Generates store of calculated address. 

Adds text to output string. 

Adds text to insertion file. 

Creates coded addressing instructions. 

Produces recovery code when literal offset greater than 4095 is met. 
Tests whether previous offset is out of bounds. 

Decodes dictionary reference. 

Examines dictionary reference in source. 

Scans step table and generates addressing instructions. 

Generates code to set bits on and off in a prefix ON-slot. 

Obtains next output buffer. 

Obtains next insertion file buffer. 

Obtains next source buffer. 

Scans input text. 

Moves addressing instructions to IN-LINE. 

Finds block number of referenced item. 

Generates code to keep the statement number slot in the ESA up to 
date . 
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Table RF. Phase RF Register Allocation Physical Registers 

r 


T T 

Main Processing 
Routine 


Controls scan of text 


statement or Operation Type 


+- 


+■ 


Subroutines Used 


Z9 


+- 


+- 


ADCBUF, ADIMOV , BRl , BR3 , ER4 , 
GETNXT, LBAL , LBALR , LECTR, LEOB , 
LEOP, LR1, LR3 , LR4, LR6 , LR7 , LR9 , 
LSHIFT, OBREGS 


Processes PROCEDURE or BEGIN state- 
ment 

I- 

Processes end of PROCEDURE or BEGIN 
block 


LPROC 


None 


LEND 


None 


Processes requests for registers; 
allocates physical registers 


OBREGS 


BRGUSE , LOAD1 , STORE 1, STORE 2, 
REGUSE 


+- 


Compiles code to store symbolic 
registers 


STORE2 


ADCBUF 


+- 


+- 


Compiles code to store assigned 
registers 


STOREl 


ADCEUF 




Compiles load of physical registers 


LOADl 


ADCEUF 


■+- 




Compiles load register 


LOADRG 


ADCBUF 




Expands coded addressing instruc- 
tions 


ADIMOV 


ADCEUF 




(Adds to output buffer 

L 1 


ADCBUF 


None 


?able RF1. Phase RF Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 


Function 


I- 




ADCEUF 
ADIMOV 
BRGUSE 
BRl (RH) 
BR3 (RH) 
BR4 (RH) 
FRTEST 
GETNXT 
Li ADI (RH) 
LB ( RH ) 


Adds to output buffer. 

Expands coded addressing instructions. 

Tabulates use of base register in look-ahead. 
Processes RX branch instructions. 

Processes BCT instructions. 

Processes RR branch instructions. 

Scans list of free registers to make even-odd pair, 
Obtains next block. 

Processes ADI (addressing) instructions. 

Constructs and puts out completed instruction. 


Section 3: Charts and Routine Directories 


309 



Table RF1. Phase RF Routine/Subroutine Directory (cont'd) 

Function 


f T * 

| Routine/Subroutine | 


h 


4 - 


| LBAL (RH) 

| Processes BAL instructions. 



| LBALR (RH) 

1 

(Processes BALR instructions. 

i 



| LBCTR (RH) 

1 

(Processes BCTR instructions. 

i 



|LDROP (RH) 

i 

(Processes DROP pseudo-instruction. 

i 



| LEND (RH) 

1 

| Loads end of PROCEDURE or BEGIN block. 

i 



| LEOB (RH) 

1 

(Processes end-of-block marker. 

i 



| LEOP 

1 

(Processes end-of-program marker. 

i 



| LOAD1 

1 

(Compiles load of physical registers. 

i 



| LOADRG 

1 

(Compiles load register. 

I 



| LPROC (RH) 

1 

(Processes PROCEDURE ' or BEGIN statement. 

i 



j LR1 (RH) 

i 

(Processes instructions in which first and second operands require 
j loading, and the first is altered, e.g., AR. 

i 


| LR3 (Rh) 

i 

( Processes floating-point instructions. 

i 



| LR4 (RH) 

1 

(Processes SS instructions. 

i 



JLR6 (RH) 

(Processes instructions where a load of first operand 
j operands are changed, e.g., ST. 

i 

is required, 

no j 

| LR7 (RH) 

1 

(Processes SI instructions. 

1 



| LR9 (RH) 

( 

(Processes instructions in which no load of first operand is needed 
jand it is changed, e.g., LA. 

i 

t l 

|LSHIFT (RH) 

i 

(Processes shift instructions. 



| OB560 (RG) 

1 

(Tests whether all registers are available. 

i 



| OB6 30 (RG) 

1 

(Generates stores of registers if branch in or out. 

i 



| OB8 95 (RG) 

1 

(Generates code to load registers. 



| P9INIT (RH) 

I 

|Main text scan. 

i 



|OBREGS (RG) 

1 

(Processes requests for registers; allocates physical 

i 

registers . 


|REGUSE 

1 

(Tabulates use of registers in look ahead. 

i 



| STORE1 

1 

(Compiles code to store assigned registers. 

i 



| STORE 2 

1 

(Compiles code to store symbolic registers. 

I 



|W4 (RH) 

1 

(Extracts ADIs at prologue insertion point. 

1 



| Z9 (RH) 

1 

(Controlling scan of text. 
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Chart 10 


Final Assembly Logical Phase Flowchart 


***• * o i ********* * 

• PAS SI T F* 

*-.*-}_*_*_*_*_*_* 

• ASSIGN OFFSET • 

• TO LABELS • 


•••♦•Cl ****•*•*•♦ 
•OPT TJ* 
*-*-*_*-*_*_*-*- • 


***************** 


«****q }******•«*« 

•ESD TO* 

♦-*-*-*-♦-♦-•-*-* 

* GENERATE * 

* ESD CARDS * 


••***E1« 

•PASS2 

*-*_*_*_ 


_*-*-*-* 


+ + * + + + * + + + + + + + + 4 1« 


****«F 1 ********** 

•STATIC UA* 

*-*_*_*.*-*-*-*_« 


•RLD/TXT uo* 

*-*-*-.*_*_*..*-*_* 

* GENERATES RLD * 

* ANO TXT CAROS * 

* • 
******* ********** 


****«H] *•**•••«*• 

• STATIC UE* 

*-*-*-*.*_*_*_*-* 
•FURTHER STATIC * 
♦INITIALIZATION * 

♦ * 
•• *************** 


« *. YES 

LIST TEXT .*.... 

*. • * 


*_*._*_*_*_*- 


• LIST TEXT • 

• * 
***************** 


***** 
•X A * 
* A1 + 


***** 
*XA * 
* Al* 


Section 3: 


Charts 


and Routine Directories 
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Chart TP. Phase TF Overall Logic Diagram 


*TF * 
* AL* 


I LOOOO X 

***** A 1 ********** 

* INITIALIZATION* * 

* GET SCRATCH * 

* STORAGE FOR * 


* B1 *.X 


**•* 

IL0003 X 

****«B 1 ********** 

* GET BRANCH * 

* LIST INDEX * 

* FROM TABLE 1 *X. 

* USING CURRENT * 

* OP CODE * 
***************** 


OF CURRENT * 

ITEM FROM *X 

INPUT £&In¥eR * 

>•**•***•*•••*•* 


A3 *. 

. * *. 

.* END *. YES 
OF TEXT .* 

*. BLOCK . * 

*. , * 

*. .* 

* NO 



I LOO 17 


B3 


. * *. 

NO .* ENO OF *. YES 

...*. PROGRAM 

*. ,* 

*. . * 


***** 
*TJ * 
* Al* 


.* PROCEOURE *. YES 
». MARKER 

*. . * 


.* ENO OF *. YES 
*. PROCEDURE .*.... 
*. MARKER .* 


PLBS *. YES 
OR .*.... 

PC8S .* 


* LOCN COUNTER 
• X* VALUE IN ET1 *. 

* OF CONTAINING * 

* PROC (IF ANY) * 
***************** 


.noil 

***••02 ********** 

* PLACE TOTAL * 

* SIZE OF PROC * 
,X* IN L0CN1 SLOT *. 

* OF * 

* ENTRY TYPE 1 * 

••****•**••••*•** 


•*•** 03 * ********* 

* DETERMINE * 

* NUMBER OF * 


* OF PROCEOURE * 
,X* SO FAR IN *. 

*LOCN2 OR LOCN3 * 

* SLOT OF ET1 * 

****** *********** 


*****03********** 

* ADD SIZE OF * 

* PROCEDURE TO * 
,X* CURRENT TOTAL •. 

* PROGRAM SIZE * 

* * 
***************** 


•••**P3*********« 

* RESET LOCN * 

* COUNTER TO * 


*** **c *********** 
* * 

* SET LOCATION * 

X* COUNTER *. 

* TO ZERO * 

* * 
*•••••****•***••* 


. X* 


***•*04* ********* 

* RESTORE * 

* LOCATION * 

COUNTER FROM 

_Tl OF CONTAIN-* 

* INC PROCEDURE * 
***************** 


*. , 


•*•****•**••••*** 


*****P4«* *•**•**• 


* OFF (PC8S) * 

***************** 


FI 


*. 


.♦NON-BRANCH *. YES 
*. MACHINE .*.... 
*. INST .* 

*• •* 

*. .* 

* NO 


.* BRANCH *. YES 
*« OR LOAO AOOR .*.... 
*. INST .* 


INS. . .... 

<* TO LOCATION 

* COUNTER * 

* * 
****** *********** 


IL: l' 2D 

***** 02 ********** 

* DETERMINE * 

* AMOUNT OF * 

...X* CODE NEEDED *. 

* TO PERFORM * 

* OPERATION * 

*•*•*•***•*****•• 


***** 03 ********** 

♦ADD TO LOCATION* 

* COUNTER AND * 
X* SET IN THE *. 

* PRECEDING ADR * 

* PSFunn-cooE * 
******* •****•**•« 


ILf'019 

*****H2********** 

* ASSIGN THE * 

* CURRENT * 

i..X* LOCATION *. 

* COUNTFR VALUE « 

* AS OFFSET * 
***************** 


*•** 

* * 

, X* 02 * 

* * 

**** 


**** 

* * 

* A3 * 

* * 
**** 
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chart TJ. Phase TJ overall Logic Diagram 


•INITIALIZATION * 


***************** 


* 02 **....*. OF , .* 

* * *. PROGRAM . * 


OPTIMA X 

***u*ci ********** 

•GET FIRST TEXT * 

* BLOCK. SET • 

• LOCN COUNTER *X 

* AND PROGRAM • 

• SIZE TO ZERO • 


•****B3 ********** 

* cuHrInPtex? * 

* BLOCK * 

* * 
******* ********** 


.* !mItch p Sff 


IL ft 003 X 

♦****01 ********** 

* GET BRANCH * 

* LIST INDEX * 

* FROM TABLE 1 *X. 

* USING CURRENT * 

* OP COOE * 
***************** 


I LOO 24 ft 

**•* 002 *** 


.* *. YES 

*. PROCEDURE ...... 

*. MARKER .* 


: STcMBW : 

. * ITEM FROM *X 

* TABLE 2. BUMP ♦ 

* INPUT POINTER * 
*•*•«•*••**•«**** 


ILOOIO 

* *•• *f 2 ******** ** 

* IF SCANNING * 

* CURRENT PROC * 
...X* SAVE LOCN CTR *. 

•VALUE IN L0CN1 * 

* SL OT * 

***************** 


.* END OF *. YES 
. PROCEDURE .*,„.. 
*. MARKER .* 


,LP $U**F2 ********** 

* CURRENT N p4n? t * 


***«*n3 ********** 


.* O^TA *. Y^s 
>X*. FLAG ON IN .*.... 
*. NEW ET1 .* 

*. .* 


*••**(: 3********** 

* IF OPTB FLAG * 

* ON, SET OPTA * 


ILlfOl 

*****£4********** 

* EVALUATE NEW ♦ 

* AOCON NEEDS* * 
»««X*SET LOCN COUNT ♦*•* 

* TO ZERO * 

* * 
***************** 


**£**£ 4*********: 

* RESTORE 

* CONTEXT OF 
. X* CONTAINING 

* PROCEDURE 


***************** 


.* MACH. *. 

.♦INST, PLBS,*. YES 
*. PCBS# END OF .*.... 
*. BLOCK .* 


* ALL TREATED * 
<* IN SAME WAY *. 

* AS IN IEMTF * 

* * 
***•*•**«*•**••** 


*****h)2 ********** 
• * 

* ASSIGN NEW * 

. X* OFFSET TO *. 

* LABEL * 


.* CHANGE *. YES 
...X*. FROM > 4C96 .*.... 
*. TO < 4f96.* 


**»**H4 ********** 

* SET OPTB ON * **** 

* IN FT 1 OF * * * 

,X* CURRENT PROC. *....X* 02 * 

* SET REPEAT * * * 

* SWITCH * **** 

••*••**•****•**** 


***** j ?* ******** 

* IF PREVIOUS 

X*. WteSpN tT- 

* COMPRESS 

* 

**************** 
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Chart TO. Phase TO Overall Lcgic Diagram 


***** 
•TO * 

VI* 


♦****B 1**** ****** 
• * 

* GENERATE BASE * 

* FOR ESO ENTRY * 

* NAMES * 


LG4JJ 


•** Cl ********* 

MAKE 6 
STANDARD 
ESO ENTRIES 


••*•*01 •••*•****• 

* MAKE SO TYPE * 

* ENTRY FOR * 
♦THE MAIN CSECT * 

* I F EXT PROC HAS* 

* •MAJN* OPTION * 


'°*l 


•••El********** 


LG030 X 

•****F 1********** 

* MAKE PR TYPE * 
•ENTRY FOR DISP * 

* P.R. OF EACH * 

* BLOCK IN THE * 

* COMPILATION * 
***************** 


LGP50 X 

•*•••01 ***•••**• 

* SCAN 

* EXTERNAL 

s^ijWin 


**************** 


• *• 

ga * Q 

.* 01 CT *. 
o* ENTRY FOR *• YES 
»X*. OECL AP. 60 .*...* 

*0 VARIABLE . * 


« • 


HI * 

* 

FILE 


H2 


*« 


* MAKE SO 

* AND PR 

* TYPE ENTRIES 


•* EXTERNAL 
• VARIABLE OR . 
*• CONO IT ION** 
••NAME .* 

•• •♦ 

• YES 


*****j2********* 


TYPE ENTRY 




«***j 3********* 


TYPE ENTRY 




• * CONTROLLED 

•. TEMP .« 


*«***G5 ********** 


***************** 


YES .* QIC T *• 
»,..*• ENTRY FOR . 
ALLOCATION OF 
VARIABLE* 


ILf 2D' 

****«! (^ ********** 

* The inc * 
*_*_*_*_*_*_*_*_* 

» • *X*GENER ATF STRING* 

* OF LIBRARY * 

* MODULE NAMFS * 
***************** 


****** 5 ********** 
* * 

♦PRODUCE ER TYPF* 
♦ENTRY FOR FACH * 

* MODULE * 

* * 
***************** 
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Chart TT. Phase TT Overall Lcgic Diagram 


♦****A1 ********** 
•INITIALIZATION * 

• SET SWITCHES * 

♦for punch/loao * 

* OPTIONS * 


**** , 

I LOOP 3 X IL0002 X 

*****81********** **l**B2 ********** 

* « * GET LENGTH OF * 

.. x : £Pst b ?^3 Ik : : 

* * * BUMP * 

*« ********* ****** *»i**«****i«*l*»* 


.* PROCEDURE *. YES 

*. MARKER ...... 

*. .* 

*. ,* 

*. .* 

* NO 


.* END OF *. YES 
*. PROCE JURE .* 

*. MARKER .* 


*«•*•(- 2 ********** 

* SAVE CURRENT * 

* LOCN CTR IN * 
X* LOCNl SLOT OF *. 

* CONTAINING * 

* PROJEgURE |Tl • 


ILOOll 

**i***02*********** 
•COUNTER FROM • 

22SSU2.III. 


*** * 3* ** * * ** ** * 

aavss&LV 

, X*PROCLN " PROCLC*. 
• ♦ LENGTH OF * 


,L 2*2***r a*********** 

SET CURRENT 


* LOCATION < 

tS°z?rS, mu 

TEXT BUFFER 

************* 


*****Q3********** 


*• . * 

*. .* 

*. .* 

* NO 


miv 

*i***E2********** 

* UPDATE PROCLC * 


* UPDATE PROCLC * 
•BY ADDING LOCN • 

X* COUNTER AND *, 

* ROUNDING UP • 

* TO FULL WORD * 


GENTXT 

****** 3********** 

• GENERATE TEXT * 

* ANO RLO FOR • 

.X* THE REQUIRED *... 

* NUMBER OF * 

• AOJON| * 


* GENERATE * 

X : iSfUms 

* AND PLACE IN * 

!***«**•$*****•*! 


G1 *. 

• * *. 

.* END OF *. YES 
*. TEXT BLOCK 
*, . * 

*. .* 

*• . * 

* NO 


***G2 ********** 


HI *. HZ *. ******H 3 ********* 

.* *. ,* *, 

NO .* END OF *. YES .*IS COMPILER*. NO * CL E AR TEXT AND 

..*. PROGRAM .* X*. SUBROUTINE . *., .X RLO BUFFERS 

*• .* *. WANTED .* * * 


*♦♦ **H A ********* 

ft 

ft HARK CURRENT 
TEXT BLOCK 
ft UNWANTED 


fc***j3 ********** 


***************** 
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Chart fJA. Phase UA Overall Logic Diagram 


***** 
*u» * 
* A2* 


UAOOP X 



k* 

*i 

*«4>A3*******« 


* 

* 

GET HEAD OF 

•INITIALIZATION 

* 

* 

N* 

• •••X* 
* 
* 
*A 

STATIC CHAIN 


B3 *. 

,:. E . S *:*'* E M * *:*x. 
*• . * 

*• . • 

*. ,* 

* NO 


UAO 1C 

•****C2 ********** 
►START SCAN FOR * 
ADDRESS * 
CONSTANT 
► INITIALIZATION 


****BA********** 

* 

GET NEXT ITEM *X. 




Pi 


*X. 


• •’EXTERNAL*'*. NO .*'* S m E *’*, NO 

**. .* X *'*.«ft^L E .* 


•****C 5 ********** 

* TXTMOV* 
A-*-*-*-*-*-*-*-* 

<* * 

* PROCESS ITEM * 

* * 
************ ***** 


02 


*• 


END OF 
THIS PART 
. OF SCAN . 
*. •* 
*. • * 

* NO 


****•£ l********** 


* GET NEXT ITEM *X.. *. 


***** 03 ********** 

* TXTMOV* 

*-*-*-*-*-*-*-*-* 

’ **CONSTA^IHoOL * 


*:** SM *•:< 

*. CHAIN .* 


***** 

*uo * 

♦ B2* 


UA02J 


***F$ ********** 


'* PROCESS ITEM * 


END OF *. VES 
STATIC .*.... 
CHAIN .* 


***** 
*uo * 
* B 2* 


GET NEXT ITEM *X 


****£$********* 


*************** 


*****£ $*** ******* 


***************** 


*+*«**G5* ********** 


************* 


****H$ ********* 


*************** 


UA"25* • 

UA0215, • 

UA >8* X 

rn****j$*** ******* 

* TXTMOV* 


* PROCESS I TFM * 

* * 
***************** 
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Chart UD. Phase UD Overall Logic Diagram 


*•*•* 5 2 ********** 

• I NI T I AL ISE TXT * 

• AND RLO CARD • 
•SKELETONS WITH * 

• CSECT NO. OF ♦ 

• STATIC • 
**•*••**••**«*•*• 


♦****C2 •*•••**••• 

• MOVE CURRENT • 

• LENGTH OF • 

• STATIC FROM • 

: comm &s r a^ into : 

****** ** ****.!***« 


**** 02 ********** 

REFER TO * 

FIRST OR NEXT * 
STATIC OSA *X 
DICTIQNAR'' * 
ENTRY * 


**** *D 3********** 

• UPDATE • 

• DSAOFF BY * 

. * LENGTH OF • 

• PREVIOUS OSA * 

• * 
••*»*•*•**••**•*• 


•****E 2 ********** 

* GENERATE TXT * 

• CARD. OFFSET- * 


•****P2 ********** 

* ACCESS AUTO * 

..x** en?rTW£\. i 

* SCAN IT * 


NO .* ITEM *. YES 
X..*. REQUIRING .*.... 
♦OOPE VECTOR* 


.* CORRES- *, 
*. PONDENCF . 
*. DEFINED .* 


• * *. 

.* *. YES 

.X*. STRUCTURE .*.... 


* ****J4 ********** 

* GFNERATE TXT * 

* CARD OOPF * 

* VECTOR AND * 

* RLO CARO FOR * 
•VIRTUAL ORIGIN * 
***************** 


***** he* ********* 

* GENERATE * 

* TXT CARO * 
. X* FOR STRUCTURF * 

* DOPE VECTOR * 

* * 
*********** ****** 


**«**j ;********** 

* SCAN BASF * 

* ELEMENTS ♦ 

* GENERATING * 

* RLO CARDS FOR * 
•VIRTUAL OPIGINS* 
***************** 
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Chart UE. Overall Logic Diagrair 


•***A3********»* 

GET HEAD QF * 
STATIC CHAIN * 


YES .* END *. 

OF CHAIN «*X«. 

*, .* 

*, , * 

*. .* 

* NO 


»..* NEXT ITEM *X. 


***************** 


****C2 ********** 

• 

START SCAN FOR * 
DOPE VECTORS *X 


r • ir T , 

*«***C 5* ******** 


****£l ********** 

* 

* 

GET NEXT ITEM *X. 


• * *. 

.* END OF *. YES 
■ X*.THIS PART OF 
*. SCAN .* 


.* e £oes*‘*. 


NO .*** I?! 
NEED.: 



.* GET NEXT ITEM *X. 


U * P »il**F5*i******** 


• EXTERNAL CHAI 


X 

*****J3*« ******** 

J* *. 

***** J5****«*» 

♦ ** 

* INITIALIZE * 

x.;*' i§,mr 

* 


« * 

* * 

* 0 m* 

*• • * 

* 

* 

*** 
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Chart UF. Phase UF Overall Lcgic Diagram 


♦INITIALIZATION.* 
♦ TRANSLATE TEXT * 
♦TO EXTERN CODE * 


**«*****•***••*•« 


lU'OO) X 

**i»**B ]*•**••**•• 

♦ GET BRANCH * 


**** ******* ****** 


.♦ MACHINE ♦. VES 
♦. INSTRUCTION .*„... 
*• .* 

*• . * 

*• • * 

♦ NO 


* CURRENT ITEM ♦ 
, * EROM TABLE 2. * 

* BUMP * 

* INPUT POINTER * 

•••«**•••**•**••• 


iLOnm 

•****C2 ********** 

* SAVE CURRENT * 

* LOCN CTR IN » 
...X* LOCN1 SLOT OE *. 

* CONTAINING * 

* PROCEDURE ET1 * 

* •*'>•****•••*•*** 


.* END OF *. VES 
*. PROCEDURE .*.... 
*. MARKER . * 


ILCiOll 

• ***« *02 *********** 

PRINT * END 
* PROCEDURE AND * 
... X ENTRY NAMES .. 
♦AND STATEMENT* 
NUMBER 

************* 


IL0IU5, 

iLcni6 

*«****E2* ********** 

PRINT PROLOGUE 


. X PROCEDURE BASE. 
* SET * 
LOCN CTR - 0 


I LODI 2, t LOO 13. 

ILPott. IL0D2I;, 

IL002 6. IL002T. 

ILCD28. IL0032 

***t*F2********** 

* SET UP LOCATION* 

* COUNTER AND * 
i..X* MNEMONIC ANO *. 

* HEX OP COOES * 

* IN BUFFER * 
•**•*•**••**•**** 


* ****C 3 ********** 

* SFT LOCN CTR * 

* TO ZERO AND * 

, X*PROCLC (COUNTER*. 

* BASE) FROM * 

* L0CN5 IN ET1 * 
***************** 


IL003 

* *** **C A*********** 

PRINT 

* * PROCEDURE * 

,„.X FOLLOWED RV .. 
* ENTRY NAMES * 

ANO STAT NO. 


*****03********** 

* RESTORE LOCN * 

* COUNTER FROM * 
X* LOCNl ANO *. 

* PROCLC FROM * 

* L0CN3 ♦ LOCNS * 
***************** 


PRINIT 

•«****! 3*********** 

PRINT LIST 
* OF ADCONS * 
...X GENERATED 

FOR ADDRESSING* 
PURPOSES 


IL2PC5 

NM00O3 

*****F3********** 

* IDENTIFY * 

* OPERANDS AND * 
...X* EXPRESS IN *. 

•TERMS OF SOURCE* 


***************** 


******p A *********** 

PRINT LINE 
* AND * 

„X INCREMENT .. 
* LOCATION * 
COUNTER 
************* 


IL0018. 

IL'>ol9 

****••62 *********** 

PRINT STATEMENT 
* NUMBER * 
,..X AND ANY LABEL .. 
* IDENTIFIERS * 


** 

. *1s compilfS*. yes 

*. SUBROUTINE .*..,.. 
*. WANTED .* 

*. . * 

*. „ * 

* NO 


*«***J3 ********** 


**•**•«•***•***•* 


***«*K 3* ********* 
* • 
•PRINT LINE WITH* 
X* OPERATION * 

* MNEMONIC END * 

* * 
•**•*•****•***••* 
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Chart XA. Phase XA Overall Logic Diagram 


***** 
*X A * 
* Al* 


XAPl 

*****42***** **** 

* ESTABLISH 

* LEVEL OF 


**************** 


****«Bl ********** 

* * 

♦CONSTRUCT PHASE* 

* DIRECTORY FOR *X 
•MESSAGE BLOCKS * 

* * 
***************** 


XA1 .*« 

B2 *. 
•* ANY * 
YES..* ENTR.p 




*. PROCESSED.* 


f 'i** + **B 3 *********** 

* PUT OUT * 

,X MESSAGE 


************* 


***** 
*AA * 
* HA* 


****Cl ********* 
LOAD 
MESSAGE 
ADDRESS 
BLOCK 


•***C 2 ********* 


*****C3********* 

* MAKE UP 

* LIST OP 


******•*•••***•*1 


*+***C A*** ******* 

* RELEASE * 

* MESSAGE * 

X* ADDRESS * 

* BLOCK * 

* * 
******** ********* 


.*’ ALL **. YES 

■vpJMiio.***’”" 


***** 
*AA * 
* HA* 


****E1 ********** 

GET TO * 

HEAD OE *. 

CHAIN * 


*****E 2 ********** 


*•*•*••**••***** 


E 3 *. 

. * I S *. 

.* THIS A *. YES 
>X*. NEW CHAIN .*..., 
*. .* 

*• • * 

*• • * 


NO 


************* 


.* IS *. 

« SKELETON *. NO 
IN CURRENT .*... 
». BLOCK .* 


****H2 *••*•****: 

MESSAGE 
NUMBER 
TO PRINT 
BUFFER 


..NO 

G3 *. 

,* *. **** 

.* END *. YES * « 

...X*. OF .*.... X* DA * 

*. CHAIN .* * * 

*. .* •*** 


.* HAS *. 

.* IT GOT *. V 
, X*. A STATEMENT .*. 
*. NUMBER .* 


**«**H A ********** 

* STATEMENT * 

* NUMBER * 

TO PRINT * 

* BUFFER * 

* * 
***************** 


, X* 


****J1********* 

MESSAGE 

SKELETON 

**•*******••*•• 


*«***j2 ********* 

* SC AN 

* 

**************** 


DU I LU 

?tx« 

PRINT 


**************** 


************* 


«* HAS *c 
a* THIS **» 
, last entry . 
*„ IN CHAIN w * 


**** 

* * 

, X* DA * 

* * 

**** 
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Table TF . Phase TF Final Assembly Pass 1 


T T 

| Main Processing 
I Routine 

-+- 


h- 


Statement. or Operation Type 


Subroutines Used 


Scans text 


j. 

Assigns offsets to lacels 


| IL0024 


None 


+- 


h 

Increments location counter for 
machine instructions 

(. 

Determines code for instructions 
which refer to labels 


| 1^,0019 


FINLQ1 , NEXTSL 


IL0014 


None 




+ ■ 


IL0020 


FINEQ1 


J. 

Initializes location counter at 
start of procedure 




IL0010 


None 


Stores size of procedure and 
resumes containing procedure 


| IL0011 


None 


L... 


Table TF1. Phase TF Routine/Subroutine Directory 


r T' 

| Routine/Subroutine | 


Function 






FINEQ1 
IL0000 
I.L0003 
IL0010 
IL0011 
I L 0 0 1 4 
IL0015 
IL0017 
IL0019 
IL0020 
IL0022 
IL0024 
NEXTSL 


Locates label number table entries. 

Entry point from compiler control. 

Entry point to scan from initialization routine. 
Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure, 
Increments location counter for machine instructions. 
Processes the start of prologues. 

Releases control. 

Assigns offsets to labels. 

Determines code for instructions which refer to labels. 
Processes end-of -block pseudo-code item. 

Scans text. 

Determines multiple statement label entries in dictionary. 
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Table TJ. Phase TJ Final Assembly 

Optimization 



r - ■ ■ “ 

1 

| Statement or Operation Type 

l 

T T 

|Main Processing) 
j Routine | 

Subroutines Used 

. .. . 

1 

| Controls phase 

1 

IL0000 

j 

(OPTIMA 

1 

- ■ 

. 

1 

(Maintains location counter for 
j machine instructions 

l 

| IL0014 

1 

..j. 

T 

| None 

1 

± 

. 

|Assigns offsets to labels 

j 

j IL0019 

-j- 

T 

| COMRTN, 

-j. 

FINEQ1, NEXTSL 

1 

(Determines code for instructions 
| which refer to labels 

l ...... 

j IL0020 

1 

| FINEQ1 

1 

i . 

. ... 

1 

(Initialize location counter at 
(start of procedure 

L . . 

| 

j IL0010 

1 

| 

1 

| None 

1 

_L 


1 

(Stores size of procedure for 
(machine instructions 

1 

1 IL0011 

1 

_|_ .. 

T 

| None 

1 

I 


1 

| Reduces number of MVC instructions 

L 

(’ IL0027 

4- 

| OFFSET, 

4 . 

OSMRTN 



r 

(Determines offset from a given 
(dictionary reference 

L 

T 

| OFFSET 

1 

I 

T 

| None 

1 

l 



_ J 


Table TJ1 . Phase TJ Routine/Subroutine Directory 


r t 

! Routine/Subroutine | 


Function 


j. + 

COMRTN | 

FINEQ1 j 

IL0000 j 

IL0003 | 

IL0010 I 

IL0011 | 

IL0012 j 

IL0014 | 

IL0019 j 

IL0020 | 

IL0024 | 

IL0027 | 

IL1001 | 

IL1101 j 

NEXTSL j 

OFFSET (TK) | 

OPTIMA | 

OSMRTN i 


Deterrnines whether further optimization is possible. 
Locates label nurr.ber table entries. 

Controls phase. 

Entry point to scan loop from initialization. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure. 
Processes machine instructions, etc. 

Maintains location counter for machine instructions. 
Assigns offsets to labels. 

Determines code for instructions which refer to labels. 
Gets pseudo-code item length and updates text pointer. 
Elides MVC instructions. 

Evaluates new ADCON needs. Sets location counter to zero. 
Restores content of containing procedure. 

Looks for equivalent statement labels. 

Determines offset from a given dictionary reference. 

Scans text. 

Scans ahead for literal offsets. 
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Table TO. Phase TO Final Assembly External Symbol Dictionary 


Statement or Operation Type 

T 

jMain Proces 
j Routine 

I .... 

T 

sinq | 

'l 

. I ... 

C 

ubroutines Used 

Constructs first six standard ESD 
entries 

T 

j LG4 01 

1 

1 

| MOVE , 

1 

1 . . 

NAME , 

ERROR 

Constructs entries for external 
procedure labels 

| . . ... 

i LG001 

1 

_L 

T 

| MOVL, 

i 

i 

ERROR 


T 

Constructs PR type entries for each|LG030 
block and procedure j 

_ r 

t 

| MOVE, 

1 

... . | 

NAME 


Constructs entries for external 
variables and external entry names 

j LG0 50 

1 

1 

" 1 

| MOVE, 

1 

. | 

ERROR 


Constructs entries for controlled 
variables and task names 

T 

| LG0 9 0 

i 

1 ' 

| MOVL, 

1 

r 

NAME , 

ERROR 

Constructs entries for Library 
conversion modules 

i 

j IL0200 

1 

± 

T 

I 1 HE I NO 

1 



Table TOl . Phase TO Routine/Subroutine Directory 


r T - 

I ROUTINE/SUBROUTINE I 


FUNCTION 


h- 


4 - 


ERROR 
LG 001 
LG03 0 
LG 050 
LG0 55 
LG 08 0 
LG 0 85 
LG 090 
LG 093 
LG 4 01 
MOVE 
NAME 

1HEINC (TQ) 


Truncates over-length external identifier, generates error message. 
Constructs entries for external procedure labels. 

Constructs PR type entries for each block and procedure. 

Constructs entries for external variables and external entry names. 
Processes ON-condit ions and external variables. 

Processes external entry names. 

Processes FILE constants. 

Constructs entries for controlled variables and task names. 

Inserts name in ESD entry for CONTROLLED. 

Constructs first six standard ESD entries. 

Moves ESD entries to card buffers, and puts out buffer when full. 
Generates names for pseudo-registers. 

Constructs a string of Library module names. 
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Table TT. Phase TT Final Assembly Pass 2 


r 

| Statement or Operation Type 

L 

T 

|Mai'n Proces 
j Routine 

T 

sing ( 

1 

g 

Subroutines Used j 

... j 

1 

| Scans text 

i 

| IL0002 

T 

( None 

■ l 

_. i 

r 

{Generates text for HR instructions 

i 

i IL0012 
-J. 

T 

| GENTXT 

4- 

— -- - - 1 

- - .. i 

r 

(Generates Text for RX non-branch 
(instructions LM, STM, and SI Types 

L 

i I L 0 0 1 3 

1 

..j. 

1 

| EOERTN, 

1 

.j. 

11 

GENTXT, OFFSET |j 

It 

- - -II 

r 

(Generates text for shift instruc- 
| tions 

L 

i IL0027 

.-j. 

( GENTXT 

1 

4- 

1 

1 

1 

(Generates Text for SS instructions 

L 

j IL0014 

-j. 

1 

| ECBRTN, 
4- 

“ ■ 1 

GENTXT, OFFSET | 

r 

| Sets up trace information and num- 
| bers compiler labels 

1- - - 

| IL0019 

I 

^ _ 

T 

| GENTXT 

1 


f 

(Generates text for branch and load 
(address instructions 

l . 

j IL0020 

! 

(FINLQ1, 

1 

J. 

GENTXT, OFFSET | 

1 

(Initializes location counter at 
| start of procedure 

L 

| IL0010 

1 

± 

1 

( PUNCHT 

1 

g 


r t 

(Resumes containing procedure at end|IL0011 
| of procedure j 

L -L 

1 

| PUNCHT 

1 

| _ 


i 

(Moves Text into card image 

L 

1 GENTXT 

g 

| PUNCHT 

g_ 

... J 

1 

| Punches cards ensuring that RLD 
j cards follow related TXT card 

L 

1 

| PUNCHT 

1 

1 

| CARDOU 

i 

" 1 

r 

(Generates text for compiler subrou- 
j tine 

| INCLUD 

1 

X _ 

r 

| GENTXT 

1 
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Table TT1 . Phase TT Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 


Function 


b 


CARDOU 

EOBRT'N 

FINEQ1 

GENTXT 

IL0002 

IL0003 

IL0010 

IL0011 

IL0012 

IL0013 

IL0014 
IL0015 
IL0016 
IL0017 
IL0019 
IL0020 
IL0022 
IL0027 
OFFSET (TU) 

PUNCHT 


Directs card image to load file or punch file. 

Chains to next input text block. 

Locates label number table entries. 

Moves text into card image. 

Scans text. 

Entry point to scan from initialization routines. 

Initialized location counter at start of procedure. 

Resumes containing procedure at end of procedure. 

Generates text for RR instructions. 

Generates text for RX non-branch branch instructions, LM, STM, and 
SI type. 

Generates text for SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Sets up trace information and numbers compiler labels. 

Generates text for branch and load address instructions. 
End-of-block routine. 

Generates text for shift instructions. 

Determines offset and relocation pointer from given dictionary ref- 
erence . 

Punches cards ensuring that RLD cards follow related TX1 card. 
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Table UA. Phase UA Final Assembly 

Initial Values, 

Pass 1 


r 

1 

| Statement or Operation Type 

i 

T T 

|Main Processing! 

| Routine j 

_L 1 

Subroutines Used 

r 

| Scans STATIC chain to beginning of 
j external section 

1 

| UA001 

1 

j UA2 00 , 

1 

UA220 , UA230 

r 

(Initializes scalar variables 

i 

| __ 

j UA200 

1 

j 

( TXTROV 

1 


r 

(Initializes BCD for label 

1 

t 

| UA220 

1 

1 

| RLDEOV, 

..._ | 

TXTMOV 

r 

(Initializes DED for temporary 

T 

j UA230 

-j. ... 

I 

| TXTMOV 

j. .... 


r 

(Initializes address constants. 

I .... .._ 

J UA010 
_. | ... ... 

j UA4 01 , 

UA4 0 3 , UA404 , UA405, UA406 

r 

(Initializes symbol table entries 

i .... ... 

| UAO 8 0 

. j 

IRLDIVjOV, 

.1 . 

TXTMOV 

r 

(Initializes address slots for 
(external variables 

i 

| UA403 

1 

1 

IRLDKOV, 

1 

1 . 

TXTMOV 

r 

(Initializes address slots for func 
j tions and programmer-defined 0N- 
| condition names 

| ... _ 

- | UA4 01 

1 

1 

-L 

T 

1 RLDROV, 

1 

1 

_ i 

TXTMOV 

r t 

(Initializes address slots for label |UA404 
j constants j 

1 ... .. . | 

1 

| RLDROV, 

1 

I 

TXTMOV 

• r 

(Initializes address slots for entry |UA405 
j labels j 

L ± 

t 

| RLDfiOV, 

1 

i. ... 

TXTMOV 

r 

(Initializes file attribute entries 
(and files 

1 .... .... _ 

T 

( UA406 

1 

1 

| RLDKOV , 

I 

TXTMOV 

1 

(Initializes constants pool 

l . .... 

j UA01 4 

_ .j. . . .... 

j. 

| RLDMOV, 

.. I ... 

TXTMOV 

1 

(Initializes dope vector skeletons 

i 

| UA021 

1 

T 

| TXTMOV 

J. 


r 

(Initializes argument lists 

L 

(UA025 

-± 

T 

( RLDbOV, 

. JL 

TXTMOV 
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Table UA1 , Phase UA Routine/Subroutine Directory 


r T - 

j Routine/Subroutine | 


Function 


h 




OUTPUT (UB) 
RLDMOV (UB) 
TXTMOV (UB) 
UA0000 
UA0 01 

UA0015 

UA010 

UA013 

UA014 (UC) 
UA0 21 

UA0215 (UC) 
UA02 5 
UA03 3 

UA080 (UC) 
UA100 (UC) 
UA100A 
UA2 00 

UA220 (UC) 
UA225 (UC) 
UA230 (UC) 
UA4 01 

UA 4 03 
UA4 0 4 
UA4 0 5 
UA4 06 

UA4 07 

UCINIT (UC) 
UCUPDT (UC) 
UC0080 (UC) 
TIDY (UC) 


oves card images to punch and/or load file. 

Moves RLD entries to card buffer. 

Moves TXT entries to card buffer 
Entry point from compiler control. 

Scans STATIC chain to start of external section, to initialize 
scalar variables. 

Return point for branches taken in first scan. 

Initializes address constants. 

Return point for branches taken in second scan. 

Initializes constants pool. 

Initializes dope vector skeletons. 

Produces text for dope vector skeleton. 

Initializes argument lists. 

Return point for branches taken in last scan. 

Initializes symool table entries. 

Initializes one-word CSECT ' IHEMAIN 1 . 

Exit from UA to compiler control and UD. 

Initializes scalar variables. 

Initializes BCD for label. 

Entry to label routines for label variable BCDs. 

Initializes DED and FED for temporary. 

Initializes address slots for functions and programmer-defined ON- 
condition names. 

Initializes address slots for external variables. 

Initializes address slots for label constants. 

Initializes address slots for entry labels. 

Initializes DECLARE control blocks for files and file attributes 
entries . 

Makes text for file attributes entry. 

Initializes array variables. 

Initializes arrays of varying strings. 

Initializes bit arrays. 

Completes packing of bit strings in structures or arrays. 
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Pass 2 


•Table UD. Pha,se UD Final Assembly Initial Values, 


r 

j Statement or 

L 

Operation Type 

*T T - 

|Main Processing! 

| Routine | Subroutines Used 

1 

1 

| Scans STATIC DSA 

h 

| Scans STATIC DSA 

1 

chain 

' S AUTOMATIC 

chain 

j A1 
- + 

| AUTO 

1 

T 

| AUTO 

+ 

| DAT, LAB, STRUC 

. ... | ._ ............. 


1 

(Initializes dope 
| items and label 
j (unstructured) 

I 

vectors for 
variables 

data 

1 

j DATLAB 

1 

1 

1 

r 

(TXTMOV(UB) , RLDMOV(UB) 

1 

1 

1 


r ■ 

(Initializes dope 
j structures 

L 

vectors for 


r 

| STRUC 

1 

.± __ _ 

| TXTMOV ( UB ) , TLDMOV ( UB ) 

1 

I _ _ . 

.1 


•Table UD1. Phase UD Routine/Subroutine Directory 

r T 

| Routine/Subroutine | Function 

j. + 


A1 

(Scans STATIC DSA chain. 

i 

AUTO 

1 

| Scans STATIC DSAs AUTOMATIC chain. 

I 

i 

i 

DATLAB 

1 

(Initializes dope vectors for data items and labels. 

i 

II 

« 

! 

STRUC 

1 

(Initializes structure dope vectors. 

i 

II 

ii 

i 

UD000 

1 

| Entry point 

i 

II 

ii 

1 

UDEND 

1 

(Releases control. 

j 

1! 


L 1 Jl 
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Table UE. Phase UE- Final Assembly Initial Values, Pass 


T T 

Main Processing 
Routine 


Statement or Operation Type 


+- 


I- 


Subroutines Used 


Scans STATIC chain to oeginning of 
external section 


UA 001 


UA20C, UA220 , UA230 


+ ■ 


Initializes scalar variables 


UA200 


TXTMOV ( UE ) 


H 


+- 


+■ 


Scans STATIC chain to initialize 
internal dope vectors 


UA003 


UA3 00 , UA320 , UA340, UA360, UA365 


+ • 


Initializes dope vectors for inter- 
nal strings 


UA300 


RLDMOV (UB), TXTMOV (UE) 


I- 


Initializes dope vectors for inter- 
nal data arrays 

H- 


UA320 


RLDMOV (UB), TXTMOV (UE) 


+ ■ 


Initializes dope vectors for arrays 
of varying strings 

h +- 


UA340 


TXTMOV (UB), UCUPDT (UC) 


+ ■ 


Initializes dope vectors for inter- 
nal label arrays 

h +- 


UA360 


RLE MOV (UB), TXTMOV (UE) 


+‘ 


Initializes dope vectors for inter- 
nal structures 

h +- 


UA365 


U A 3 00, UA320 , UA360 


Initializes arravs 


UA0 3 0 


RLDMCV (UB), TXTMOV (UE), 
UCINIT (UC) 


h- 


UA04G 


Initializes structures 


TXTMOV (UB), UA200 , UC0800 (UC), 
TIDY (UC) 




' + 




Initializes one word CSECT 
I REMAIN ' 


UA100 


OUTPUT, RLDMOV, TXTMOV (all in UE) 


h- 


■ + 


Initializes CSECT for STATIC 
external variables 


UA1005 


H 


• + 


OUTPUT (UB), UA030 , UA200, UA300, 
UA320, UA360, UA365, UA.401, UA406 


Makes up END card and terminates 
pha s e 


UA120 


OUTPUT (UE) 


h 

(Initializes array variables 

L 


(UCINIT (UC) (TXTMOV (UB), UC0080 (UC), TIDY (UC)| 

.X I J 
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(Table UEl. Phase UE Routine/Subroutine Directory 


r T * 

| Routine/Subroutine | 


Function 






AREA 

EVENT 

TASK 

UA000 

UA001 

UA0015 

UA003 

UA021 
UA030 
UA0 31 
UA0 33 
UA0 3 4 
UA04 0 
UA100 (UC) 
UA105 
UA120 
UA2 00 
UA207 
UA300 
UA320 
UA3 4 0 
UA36 0 
UA365 
UA401 

UA4 06 

UA1005 


Initializes AREA variables. 

Initializes EVENT variables. 

Initilizes TASK variables. 

Entry point from UA and compiler control. 

Scans STATIC chain to start of external section, to initialize sca- 
lar variables. 

Return point for branches taken in first scan. 

Scans STATIC chain to initialize all dope vectors for internal vari- 
ables . 

Start of scan for arrays and structures. 

Initializes arrays. 

Produces RLD entry for label array virtual origin. 

Return point for branches taken in array scan. 

Produces RLD entry for ciata array virtual origin. 

Initializes structures. 

Initializes IHEMAIN CSECT. 

Return point for branches taken in external scan. 

Makes up END card and terminates phase. 

Initializes scalar variables. 

Lists label variables. 

Initializes dope vectors for internal strings. 

Initializes dope vectors for internal data arrays. 

Initializes dope vectors for arrays of varying strings. 

Initializes dope vectors for internal label arrays. 

Initializes dope vectors for internal structures. 

Initializes address slots for functions and programmer-defined 0N- 
conditicn names. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Initializes CSECTs for STATIC external variables. 
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Table UF. Phase UF Final Assembly Object Listing 

r 


T T' 

Main Processing! 
Routine 


Statement or Operation Type 
Scans Text 

Lists RR instructions 

Lists RX non-branch instructions 


+- 


Subroutines Used 




IL0002 

IL0012 

IL0013 


None 


■+ 

| PRINIT, RRRTN 

'+ 

| BXRTN , PRINIT, FRNTOU , PRNTVF, 

| SECOND 

“f 

| EOBRTN, PRINIT, PRNTOU , SSRTN 

"f 

| PRINIT, PRNTOU, PRNTVF 

- + 

| PRINIT, PRNTOU, PRNTVF, SECOND 

■+ 

jCHARVF, PRINIT, PRNTOU, PRNTVF 
| SECOND, SSRTN 

•+ 

| I L 0 0 1 3 , NAMEIT, NAMEQU, PRINIT,.. 

I RRRTN 

4- 


+■ 


Lists SS instructions 
Lists shift instructions 
Lists LM and STM 
Lists SI instructions 


IL0014 

IL0026 

IL0027 

IL0028 


Lists branch and load address 
instructions 


IL0020 


+ 

| NAMEVF, NEXTEL, NEXTSL , 
j PRNTLC, PRNTOU, PRNTVF, STATMN 
4 


Lists labels 


IL0019 


Lists procedure names 

I- 

Lists ends of procedures 


IL0010 

IL0011 

SECOND 


NAMEVF, NEXTEL, PRNTOU, STATMN 


-H 


I- 

Scans ahead for literal offsets; 
inserts second instruction byte 
into print image 

(■ 




NAMEVF, NEXTEL, PRNTOU 


EOBRTN 




Generates listing of text for base 
offset pair 


SSRTN, BXRTN 


1™ 


■I 


JABSOFF, ADDEND, NAMEIT, NAMEQU, 

| PRNTVF 

■+ 

IDECINT, FINEQl 

■+ 

I PRNTLC 


f- 


Names generated label number 


•+ 


NAMEQU 

PRINIT 


Inserts location counter value, and 
hexadecimal and mnemonic operation 
codes in print line 


h- 


Moves variable 
variable field 

length item into 
part of print line 

j PRNTVF 

1 

-L 

j PRNTOU 

1 

_ 1 

Lists statement 

numbers 

r 

| STATMN 

1 

t 

i STATNO 

i 

Determines name and offset from 
dictionary reference 

T 

| NAMEIT 

1 

T 

IDECINT, HEXINT 

I 

i 

Generate listing of compiler 

| 

j IL0017 

T "" 

| PRNTLC , PRNTVF , PRNTOU 


subroutine 

i 


Section 3: Charts and Routine Directories 


331 




Table UF1. Phase UF Rcutine/Subroutine Directory 


f T' 

| Routine/Subroutine | 


Function 


h 


ABSOFF 

ADDEND 

BXRTN/SSRTN 

CHARVF (UG) 

DECINT (UG) 

EOBRTN 

FINEQ1 

HEXINT (UG) 

ILOOOO 

IL0002 

IL0003 

IL0010 (UG) 

IL0011 (UG) 

IL0012 

IL0013 

IL0014 

IL0015 

IL0016 

IL0017 (UI) 

IL0018 

IL0019 (UG) 

IL0020 

IL0026 

IL0027 

IL0028 

IL0032 

IL1003 (UG) 

IL2005 

N AMBIT 

NAMEQU 

NAMEVF (UG) 

NEXTEL (UG) 


Appends literal offsets to operands in variable part of print line. 
Appends signed literal offsets to operands. 

Generate listing of text for base offset pair. 

Places one character in variable field of print line image. 

Converts binary to externally coded decimal. 

Chains no next input block. 

Locates label number table entries. 

Converts binary to externally coded hexadecimal. 

Entry point from compiler control. 

Scans text. 

Entry to scan from initialization routines. 

Lists procedure names . 

Lists ends of procedures. 

Lists RR instructions. 

Lists RX non-branch instructions. 

Lists SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine, and compiler subroutine listing. 

Processes compiler generated label numbers. 

Lists labels. 

Lists branch and load address instructions. 

Lists shift instructions. 

Lists LM and STM. 

Lists SI instructions. 

Processes SS decimal instructions. 

Prints " *PROCEDURE" followed by entry names and statement number. 
Identifies operands. 

Determines name and offset from dictionary entry. 

Names generated label number. 

Places a variable name in the print line. 

Scans dictionary for multiple entry labels. 
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Table UF1. Phase IFF Routine/Subroutine Directory (cont'd) 


T 

Routine/Suoroutine | 


Function 


h . 


NEXTSL 

(UG) 

NM0003 

(UH) 

PRINIT 

(UG) 

PRNTLC 

(UG) 

PRNTOU 

(UG) 

PRNTVF 

(UG) 

RRRTN 


SECOND 


STATMN 

(UG) 

STATNO 

(UG) 


4 

| Scans dictionary for multiple statement labels. 

I 

| Common return point in naming routine. 

• \ 

| Prints location counter value, hexadecimal, and mnemonic op codes. 

I 

[Converts location counter to hexadecimal; places it in print image 

I 

| Prints a line. 

I 

| Moves variable length item into variable field part of print line. 

I 

[Generates R^ format listing of text. 

I 

| Scans ahead for literal offsets; inserts second instruction byte 
j into print image. 

I 

| Lists statement numbers. 

I 

| Converts statement number to decimal. 


A 


I 
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Table XA. Phase XA Error Message Editor 


Statement or Operation Type 

| Main 

| 

T 

Processing | 
Routine | 

l . ... 

Subroutines Used 

Determines whether error 
are to be printed 

messages 

| XA 

1 

T 

| None 

1 

. i 


Scans error message text 
and prints them out 

skeletons 

| XA8 

| 

T 

| XA50 , 

1 

X 

XA7 0, X A 9 0, XA110 , ZUPL 


r t 

| Routine/Subroutine | 

t 1 


Table XA1. Phase XA Routine/Subroutine directory 

Function 

Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error miessage text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

(Accesses miessage skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, 
moves it to print buffer. 


XA 


XAO 


XA01 


XA1 


XA2 


XA4 


XA7 


XA8 


XA9 (XE) 

XA12A 


XA30 

(Xb) 

XA32 

(XB) 

XA3 5 

(XB) 

XA4 0 

(XB) 

XA50 

(XB) 

XA7 0 

(XB) 

XA9 0 

(XB) 

XA110 

(XB 

ZUPL 



and 


(Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 

L X J 
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APPENDIX A: GUIDE TO PHASES AND NODULES 


This appendix 

relates the logical phas- 

BC 

BC, BE , BF 

Initial scan and tran- 

es, physical phases, and modules contained 



slation phase for 

within the physical phases. The compiler 



compile- time processor 

name is IEMAA. 





PHYSICAL 


BG 

BG, El ,£J 

Final scan and replace- 

PHASE MODULES 

DESCRIPTION 



ment phase for compile- 
time processor 

Compiler Control 


BN! 

BN, BN 

Error message printout 

AA 

Controls running of 

compiler 



phase 




BC , BV 

Contain the diagnostic 

AB 

Performs detailed ini- 
tialization 



messages 



BW 


Cleanup phase for 

AC 

Writes records on 

intermediate file 



compile-time processor 


SYSUT3 

Read-In 

Logical Phase 

AD 

Performs interphase 


CA 

Read-In phase common 


dumping as specified in 



routines 


the DUMP option 


CC 

Read-In phase common 

AE 

End of read-in phase 



routines 

AF 

Controls system genera- 


CE 

Keyword tables 


tion compiler options 

Cl 

CG , Cl 

Read- In pass 1 

AG 

Closes SYSUT3 for out- 
put, reopens for input 


CK 

Keyword tables 

AH 

Format annotated die- 

CL 

CL, CM 

Read-In pass 2 


t ionary dump 


CN 

Keyword tables 

AI, AJ 

Format annotated text 
dump 

CO 

CO, CP 

Read-In pass 3 

AK 

Closing phase of com- 


CR 

Keyword tables 


piler 

CS 

CS,CT 

Read-In pass 4 

AL 

Controls extended, dic- 
tionary compilation 

CV 

CV,CW 

Read-In pass 5 

AM 

Phase marking 

Dictionary Logical 

Phase 

AN 

Controls normal die- 

| ED 

ED 

Initialization, 


tionary compilation 

1 

1 


subroutine package for 
Declare Pass 2 

BX 

48-character set prep- 





rocessor 

EG 

EP' , EG 

Initialization 

JZ 

Builds second half 

El 

Eh, El , EJ 

First pass over DECLARE 


phase directory 



statements 

Compile-time Processor Loqical Phase 

EL 

EK, EL, EM 

Second pass over 





DECLARE statements 

AS 

Resident phase for 

compile-time processor 

EP 

EP 

Constructs dictionary 

entries for PROCEDURE, 

AV 

Initialization phase 



ENTRY and CALL state- 


for compile-time proc- 



ments 


essor 





Appendix A: Guide to Phases and Nodules 


335 



j £W EV , EW Constructs dictionary 

entries for LIKE attri- 
butes 


EY EX , EY , EZ Constructs dictionary 

entries for ALLOCATE 
and for explicitly 
qualified based varia- 
bles . 

FA FA , FB Checks context of 

source text 

FE FE , FF Changes ECD to dic- 

tionary references 

FI FI Checks validity of dic- 

tionary references 

FK FK Rearranges attributes 

FO FO , FP Constructs dictionary 

entries for 0N- 

conditions 

FQ FQ Checks validity of 

PICTURE chain 

FT FT, FU Dictionary 

house-keeping 

FV FV,FW Merges second file 

statements into text 


|IA 

IA, IB, IC 

Stacks operators and 

operands 

1 1-G 

IG 

Processes array and 
structure arguments and 
built-in functions 

1 IL 

IL 

Preprocessor for gener- 
ic functions 

| IM 

IM, IN, 

IP/ IQ 

Processes generic func- 
Ic functions 

| IT 


Processes function tri- 
ples 

1 IX 

IX 

POINTER and AREA check- 
ing 

| JD 

JD 

Evaluates constant 

expressions 


A ggreg ates Logical Phase 


|JI 

Jl, JJ 

Structure 

1 


pre- preprocessor 

|JI 

JI, JK, JL 

Structure preprocessor 

JK 

JK, JL, JM 

Structure processor 

JP 

JP 

Checks DEFINED chains 


P seudo - Co d e Logic a l P hase 


FX 

FX, FY 

Processes identifiers 

LA 

LA 

Utility scanning phase 



for cross reference and 
attribute listing 

LB 

LB , LC 

Generates triples to 

initialize AUTOMATIC 

Pretranslator Logical Phase 



and CONTROLLED scalar 






variables 

GA 

GA 

Constructs DECLARE and 
OPEN control blocks 

LD 

LD 

Constructs dictionary 
entries for initialized 

GB 

GB, GC 

Modifies I/O statements 



STATIC scalar variables 
and arrays 

GK 

GK 

Checks parameter match- 
ing 

LG 

LG, LH 

Expands DC loops 

GO 

GO 

Preprocessor for second 

LR 

LR 

Initialization for 



check on parameters 



Phase LS 

GP 

GP, GQ,GR 

Second check on param- 

LS 

LS , LT , LU 

Converts expression 



eters 



triples to pseudo-code 

GU 

GU , GV 

Processes CHECK condi- 

LV 

LV 

Provides string han- 



tion statements 



dling facilities 

HF 

HF, HG 

Processes structure 

|LW 

LW 

Initialization for 



assignments 

I 


phase LX 

HK 

HK, HL 

Processes array assign- 

| LX 

LX , LY 

Converts string triples 



ments 



to pseudo-code 

HP 

HP 

Processes items defined 

MB 

ME , MC 

Constructs pseudo-code 



using iSUBs 



for pseudo-variables 

Translator Log ical 

Phase 

| MD 

MD 

Scans for ADDR func- 
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tions and generates 

|0P 

OP , OQ 

Generates pseudo-coae 



code for each 

1 

1 


for further in-line 

conversions 

ME 

ME 

Constructs pseudo-code 
for in-line functions 

OS 

OS , CT , OU 

Converts constants to 
required internal form 

MG 

MG , MH 

Constructs pseudo-code 
for in-line functions 

Storage 

Allocation 

Logical Phase 

MI 

MI , MJ 

Constructs pseudo-code 
for in-line functions 

| PA 

1 

PA 

Puts eligible DSA's 

into STATIC 

■MK 

M.K 

Constructs pseudo-code 
for in-line functions 

PD 

PD 

First STATIC storage 

allocation phase 

ML 

ML 

Processes generic entry 






names 

PH 

PH 

Second STATIC storage 
allocation phase 

MM 

MM , MN , MO 

Processes CALL and 
function procedure 

PL 

PL, PM 

Constructs syirbol 



invocations 



tables ana DEDs 

MP 

MP 

Reorders BUY and SELL 

PP 

PP 

Sorts AUTOMATIC chain 



statements 

| PT 

PT , PU , PV 

Allocates AUTOMATIC 

MS 

MS , MT 

Constructs pseudo-code 



storage 



for subscripts 

QF 

vd i QG , QH 

Constructs prologues 

NA 

NA 

Generates pseudo-code 

for branches, RETURN 

|QJ 

Q J , QK , QL 

Allocates DYNAMIC stoi— 



triples, etc. 



age 

NG 

NG 

Generates Library call- 

IQX 

QX 

Lists lengths of aggre- 



ing sequences for DELAY 
and DISPLAY statements 

i 


gates 




Register 

Allocation 

Logical Phase 

NJ 

NJ,NK 

Generates Library call- 
ing sequences for exe- 

JRA 

RA,RB,RC 

Processes addressing 



cutable RECORD-oriented 



mechanisms 



input/output statements 

RE 

Rf , RG , RH 

Allocates physical reg- 

NM 

NM, NN 

Generates Library call- 
ing sequences for exe- 



isters 



cutable STREAM-oriented 

Final Assembly Logical Phase 



input/output statements 

TF 

TF 

Assembly first pass 

NT 

NT 

Pre-processor for NU 

TJ 

T J , TK 

Optimization 

NU 

NU , NV 

Generates Library call- 
ing sequences for 
data/format lists 

TO 

TO, TP , TQ 

Produces ESD cards 




TT 

TT , TU 

Assembly second pass 

OB 

O B , OC 

Processes compiler 

functions and pseudo- 

UA 

UA, UB , UC 

Final assembly initial 



variables 



values, first pass 

OD 


Pseudo-code assignment 

| UD 

1 

UE , UB , UC 

Generates RLD and TXT 
cards to set up dope 

OE 

OD , OE , OF 

Constructs Pseudo-code 

1 


vectors for STATIC DSAs 



for assignments 

| UE 

UE , UB , UC 

Final assembly initial 

OG 

OG , OH 

Generates library 



values, second pass 



calling sequences 

UF 

UF , UG , UH 

Produces listings 

OM 

OM , ON , 00 

Generates pseudo-code 

for data type conver- 

|UI 

UI,UG,UH 

Completes final assem- 



sions in-line 

1 


bly listings 
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Error 

Editor 



XA, XC 

Controls the printing 
of messages 

XA 

XA 

Determines 

whether 





there are 

diagnostic 





messages to 

be printed | 

XF 

Message address blocks 


XA, XB 

Constructs 

the third | 

XG, YY 

Contain the diagnostic 



phase list 



messages 
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| COMPILER PHASE-IN-STORAGE MAP 


|er. Modules on a vertical line may never 
j be in storage together. This map rep- 

resents the 'worst' case, and does not 
| In this phase-in-storage map, modules on J always reflect the order of loading, 
j a horizontal line may be in storage togeth- 
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APPENDIX B: RESIDENT TAELES 


There are three resident tables: the 
dictionary, the keyword tables, and\ the 
phase directory. The dictionary is resi- 
dent through part of the compilation; the 
formats of the dictionary entries are fully 
described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the compilation. 


ORGANIZATION OF KEY WO RD TAELES 


The read-in phase is divided into five 
passes containing the modules shown in 
| Figure 8. 

Modules CA and CC contain routines which 
are common to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
Cl. The keyword tables are held in separ- 
ate modules (CE, CK, CN, and CR) which mu^t 
each be less than 1,024 bytes (IK) long. 


L J > Common Routines 

I 

r 1 I 

I cc II 

l J I 

J 


In this way it is possible to hold in 
storage only those keywords which are 
required for any one pass. The keyword 
tables are constructed in the following 
manner . 

For ease of searching and modifying a 
keyword table, it is organized into two 
levels and by keyword length, as shown in 
| Figure 9. 

The KEYWD routine is called by one of 
the statement scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., statement identifier, ON condition, 
miscellaneous) . It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWD routine with the means of 
reaching a cable containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next signi- 
ficant item in the source text to obtain 
the length used in this look-up. 


T T T T 


r _ 

1 

1 

1 

IT 

• i 

1 

1 

r i 

1 

1 

r - 

1 

1 

1 

r* 

i 

1 

CE | 

1 

1 

CK | 

1 

1 CN | 

1 

1 

CR | 

1 

1 

CR | 

L. 

J 

1 

1 
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1 

l 

L J 

1 

1 

i 

J 

1 

1 

L_ 

J 

r - 
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”1 

| 

1 

1 

1 

r - 
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1 
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r i 
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1 

I 

1 

r - 

1 

1 

| 

1 

1 

1 

r* 

1 

1 

| 

1 

1 

1 

CG | 

1 

1 

1 

l 

1 

CL | 

i 

l 

1 

1 I 

| CO 1 

1 

1 

| 

1 

1 

1 

CS 1 

1 

1 

| 

1 

1 

CV 1 

1 

i 

1 

J 

1 

1 

1 

1 

L- 

i 

j 

1 

1 

i 

1 1 

L J 

1 
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L_ 
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1 

1 
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L. 

1 

J 
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1 

1 

1 

r i 

1 I 

1 

1 

1 

r - 

1 

1 

1 

1 

1 

1 

r" 

l 

1 

1 

l 

1 

Cl | 

1 

1 

J 

1 

1 

CIV 1 1 

1 

1 

I 

l l 

| CP | 

1 

i 

l 

1 

1 

CT 1 

1 

i 

I 

I 

1 

1 

CW 1 

1 

L_ 

1 

1 

1 

1 

t — 

1 

-.J 

1 

1 

1 1 

L J 

1 

i 

1 

L_ 

1 

_ J 

1 

1 

1 

i- 

1 
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Psss 1 

1 

1 


Pass 2 

1 

1 

Pass 3 

1 

1 


Pass 4 

1 

1 


Pass 5 


• Figure 8. Organization of Read-In Phase 
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r 1 For mat of Thir d Lev el Tabl es 

-H R(A) | " “ 

|- -j First Level 

r — j f(b) j Directory The third level tables have a prefix 

j j. -j byte containing the number of entries in 

| j R (C ) j- — -j this particular table followed by keyword 

j |- -j j entries. These consist of the keyword in 


internal code plus the replacement charac- 
ter (keywords recognised as such are 


1 

1 

1 

I 


1 

1 



replaced 

oy 

a 

single code byte). 

1 r 

-! | r 

n 

1 

r 






A L > j 

1 bl>| 

i 

C *■> I 

| Second 





j. 

H I- — 

-1 


y 

■] Level 

STLm 

DC 

FLl'x' where x is number of 

1 

1 1 

1 


i 

j Direc- 




keywords in this table 

(• 

H F 

^ 


y 

-| tory 





1 

1 1 

1 


i 

1 


DC 

X* 

112315' keyword in internal 

L 

_j j. 

1 

| 


y 

i 

-1 

| 




code 


l 

j. 

i 

— -1 


i 

! 

1 

1 


DC 

X* 

55' replacement in internal 


1 

1 







code 


h 

— + 









1 

1 





DC 

X' 

393839' 


1 

1 





DC 

X' 

5A ' 

Figure 9. 

Organization 

of 

Keyword 

Table 






Format o f First Lev el Directory 


FSTLVL DC 
DC 


AL2 (STATID 
AL2 (ONID - 


- FSTLVL) 
FSTLVL) 


F ormat of Secon d Level D irectory 


Some keywords are not represented by one 
word (e.g., GO TO, BY NAME, and clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by OR-ing a 1-bit into the first 
bit of the first level. The presence or 
absence of this bit is tested by the KEYWD 
routine before the suspected keyword is 
compared. If the bit is absent, the pass 
through the routine is quick, as there is 
no possibility of an extra level search. 
If the bit is present, the keyword must be 
compared after the additional bit has been 
AND-ed out. If the comparison is equal, 
the two bytes following the replacement 
character are used as a relative address to 
reach the next level table. 


The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 


STATID DC FL2'm' where m is smallest 
length in table 

DC FL2 ' n ' where n is largest 
length in table 

DC AL2 (STLm- STATID) 

DC AL2 (STLn- STATID) where the 

symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 


For mat of _ Ent ry Re qui ring A ddi tional 
C ompar isons 


DC X' 9726' GO + X'1000' 

DC X' 40' 

DC AL2 ( N XTLVL-* ) Relative address 
of next level table 

The format of these extra level tables 
is similar to that fcr the third level. In 
this way, it is possible for national 
language keywords to replace single words 
by two or more words, if so desired. 


342 



PHASE DIRECTORY 


1 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. Tnis list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 


The phase directory is constructed by 
use of the BLDL macro and a build list. 

The format of the build list is fully 
described in the publication IBM System /3 60 
Operating System, Control Program Services, 

Form C2 8-6 541. 

Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied € s .ntry in the build 
list are used to construct a 12-byte phase 1 
directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is com- 
plete . 

The format of a phase directory entry is 
as follows: 

Byte Numbe r 

1-2 

3 

4-5 


6-8 


9 - 10 


11 - 1.2 


Desc rip tio n 
Phase name 
Status byte 

Concatenation number and 
Library identification 

TTR of first text record; 
where TT is the relative 
track number, and R is the 
block number on that track 

Total amount of storage 
required 

Length of first text record 2 


2 LIST 


3 LOAD 


4 DECK 


5 EXTREF 


6 XREF 


7 ATR 


0 


1 


2 

3 

4 

5 


6 CHAR 48 


7 MACRO 


0 SOURCE 


Control Cod e Word — C CCODE 1 CHK 


The format of the control code word 2 BCD 

(CCCODE) , which is four bytes in length, is | 
as follows: 

3 SOURCE2 

Byte Bit 

0 0 DUMP 1 wanted 4 OPT 

0 not wanted 


1 abort has occurred 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 means U- format 
0 means F- format 
records on input 


1 if track overflow 
is present 


Severity code 
Severity code 
Severity code 
Severity code 

where 0000=FLAGW 
0001— FLAGE 
0010=FLAGS 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 not wanted 
0 wanted 


1 not wanted 

0 wanted 

1 BCD input 

0 EBCDIC input 

1 wanted 

0 not wanted 

1 wanted 

0 not wanted 
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1 program check 
has occurred 


STMT 

MACDCK 

COMP 


NEST 


1 means first record 
has been read 

1 not wanted 

0 wanted 

1 not wanted 

0 wanted 

1 not wanted 

0 wanted 

1 macro phase now 
running 

1 batch record found 

0 batch record not 
found 

1 EOF record found 

0 EOF record not found 

not used requirement 

1 wanted 

0 not wanted 



APPENDIX C: INTERNAL FORMATS CF DICTIONARY ENTRIiS 


This appendix describes the formats of 
dictionary entries during the compilation 
of a source program. The appendix is 
organized in the following manner: 

1. Dictionary entry code bytes 

2. Dictionary entries for ENTRY points 

3. Code bytes for ENTRY dictionary 
entries 

4. Dictionary entries for DATA, LABEL, 
and STRUCTURE items 

5. Code bytes for DATA, LAEEL, and STRUC- 
TURE dictionary entries 

6. Uses of the OFFSET 1 and OFFSET 2 
slots in DATA, LABEL, and STRUCTURE 
dictionary entries 

7. Dictionary entries for: 

label constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 

internal library functions 

parameter descriptions 

ON conditions 

PICTURES 

expression evaluation workspace 
dope vector skeletons 
symbol table entries 
AUTOMATIC chain definitions 
DED dictionary entries 
FED dictionary entries 
temporary dope vectors 
BCD entries 

second file statements 

8. Dimension tables 


1_. DIC T IONARY ENT RY COD E BY TES 


The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 
out on the elements. 

Each type of element has a charac- 
teristic dictionary entry, which is iden- 
tified by a code occupying the first byte 
of the entry. In general, each type of 


element nas a different code byte, but in 
order to permit rapid identification of 


dictionary 

entries, the code bytes have 

been allocated on 

the following basis: 

F’irst half 

Byte 


Bit 

Bit 


Position 

Value 

Meaning 

0 

0 

entry has ECD 


1 

entry has no BCD 

1* 

0 

entry is to be chained 


1 

entry not to be chained 

2 

0 

not a member of structure 


1 

member of structure 

3 

0 

not dimensioned 


1 

dimensioned 

♦This bit only applies to Phase FT which 

constructs 

the 

storage class chains by a 

sequential 

scan of the dictionary; later in 

the compiler, items with this bit on are 
added to the storage class chains. 

Second Half 

_Byte 



In the second half byte, the following 
| codes have the meanings shown, unless the 
jfirst half byte is X'C': 


X ' F ' means data variable 
X'7' means label variable 
X ' E ' means structure 

The second and third bytes of every 
dictionary entry contain the length, in 
bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not include the ECD; 
instead, the BCD, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 

Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the tanle which have no corresponding 
description are not allocated. 

X'OO' Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

04 Built-in function, e.g., DATE 

05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, e.g., SIN 
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ON CONDITION entry 


I 


07 

Label variable 

42 

08 

File constant 

43 

09 


44 

0A 


45 

OB 


46 

OC 

Task identifier 

47 

0D 

Event variable 

48 

0E 


49 

OF 

Data variables (not dimensioned or a 

4A 


structure member) 

4B 



4C 

10 


4D 

11 


4E 

12 


4F 

13 



14 


80 

15 



16 


81 

17 

Dimensioned label variable 


18 


82 

19 


83 

1A 


84 

IB 


85 

1C 

Dimensioned task identifier 

86 

ID 

Dimensioned event variable 

87 

IE 



IF 

Dimensioned data variable 

88 



89 

20 



21 


8A 

22 


8B 

23 


| 8C 

24 


8D 

25 


8E 

26 


8F 

27 

Label variable in structure 


28 



29 


90 

2A 


91 

2B 


92 

2C 

Task identifier in structure 

93 

2D 

Event variable in structure 

94 

2E 

Structure item 

95 

2F 

Data variable in structure 

96 



97 

30 



31 


98 

32 


99 

33 


9A 

34 


9B 

35 


9C 

36 


1 

37 

Dimensioned and structured label 

9D 


variable 

1 

38 


9E 

39 


9F 

3A 



3B 



3C 

Dimensioned task identifier in 

A0 


structure 

A1 

3D 

Dimensioned event variable in 

A2 


structure 

A3 

3E 

Dimensioned structure item 

A4 

3F 

Dimensioned and structured data 

A5 


variable 

A6 



A7 

40 

Formal parameter type 1 

A8 

41 


A9 


ENTRY type 1 — from a PROCEDURE 
statement 

BEGIN statement entries — entry 
type 1 

ENTRY statement — entry type 1 

Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 

temporary 

Constant 

File formal parameter or file 
temporary 


Task identifier formal parameter 
Event variable formal parameter 

Data variable formal parameter or 
temporary 

Invocation count dictionary entry 


Dimensioned variable formal parameter 

or temporary 

File attribute entry 


Dimensioned task identifier formal 
parameter 

Dimensioned event variable formal 
parameter 

Dimensioned data variable formal 
parameter or dimensioned temporary 


Structured label variable temporary 
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4 


Level 


AA 

AB 

j AC Structured task identifier temporary 
j AD Structured event variable temporary 
AE Temporary or formal parameter 
structure 

AF Structured data variable temporary 

BO 

Bl 

B2 

B3 

B4 

B5 

B6 

B7 Dimensioned and structured label 
variable temporary 
B8 
B9 
BA 
BB 

BC Dimensioned and structured task 
J identifier temporary 

BD Dimensioned and structured event 
| variable temporary 

BE Dimensioned structure formal 
parameter or temporary 
BF Dimensioned and structured data 
variable temporary 

CO String dope vector for temporary 
Cl DED2 entry 

C2 Internal library function, e.g„, 
conversion routines 
C3 Compiler label 
C4 Prefix ON list item 
C5 Parameter lists 
C6 Dope vector skeletons 
C7 Symbol table entry or DED entry 
C8 Error message, table entry, workspace 
| requirement, STATIC DSA , etc. 

j C9 Record dope vector ( RDV ) entry 
j CA Workspace requirement entry 

CB Select a member from a generic family 
CC AUTOMATIC chain delimiter or Dope 
Vector Descriptor (DVD) entry 
CD ON condition entry 
CE Label BCD entry 

CF End of information in dictionary 
block 


2. DICTIONARY ENTRIES F OR ENTRY POIN TS 


E ntry t yp e 1 fo r PROC EDURE. BEG IN , a nd 
ENTRY statements 


The format of an entry for a PROCEDURE 
statement is as follows: 

Byte Number Descriptio n 

1 Code byte X'80' 

2-3 Length 


5 Count 

6-7 Dictionary reference to the 

entry type 1 of the contain- 
ing block 

8-9 Dictionary reference of the 

dictionary entry for the 
first label that was 
attached to the PROCEDURE 
statement 

10-11 Dictionary reference to the 

entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 

12-13 The start of the chain of 

all AUTOMATIC variables 

14-15 J Dictionary references to 

16-17 > three dictionary entries 

18-19 | indicating storage require- 
J ments for workspace 

20-21 Dictionary reference of 

CHECK list 

22-23 Dictionary reference of 

NOCHECK list 

24-25 Dictionary reference of the 

first symbol table entry for 
this block 

26-28 Size of the DSA for this 

block 

29-31 Offset of the eight words in 

the DSA used for addressing 
the DSA 

32-34 Offset of the storage used 

for the paramerer list nec- 
essary in an ALLOCATE- FREE 
statement 

35-37 Offset of the two-byte 

switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 

38-40 Offset of the four-byte slot 

which will contain the 
address of the first approx- 
imation of the target field 
(the address of the implied 
parameter) 

41-42 Dictionary reference of the 

entry type 1 of the first 
ENTRY statement of the pro- 
cedure. The entry type 1 
for PROCEDURE and ENTkY 
statements of any one proce- 
dure form a circular chain. 
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If there are no ENTRY state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE'S entry type 1, 
i.e., of the entry in which 
the slot occurs 


43 OPTIONS code byte 

44-57 Eight 2-byte dictionary ref- 
erences to dictionary 

entries for prefix options. 
Only those prefix options 

which are changed within the 
procedure have a dictionary 
reference. The remainder 

are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
this Appendix) 


4 Level 


5 Count 

6-7 Dictionary reference of the 

next member in the circular 

PROCEDURE-ENTRY chain 

8-9 Dictionary reference of the 

dictionary entry for the 
first label on the original 
ENTRY statement 

10-12 The offset of the apparent 

entry point 

13 2*n where n is the number of 

parameters 

14 onwards n dictionary references to 

the formal parameter type 1 
entries 


60 


Options change oyte. This 
byte contains a one bit for 
each prefix option which is 
changed within the proce- 
dure. Its format is identi- 
cal with the normal options 
byte 


The labels on a PROCEDURE or ENTRY 
statement will be placed in the dictionary 
according to the following format: 

By te N umb er Des cription 

1 Code byte X'01' 


| 61-63 Offset of workspace used in 

BUY statement 

| 64 Optimization byte 

| 65 2*n where n is the number of 

parameters at this entry 
point 

| 66 onwards N dictionary references of 

formal parameter type 1 

entries 

The format of an entry for a ELGIN 
statement is similar to the above for the 
first 34 bytes. The initial code byte is 

X'81', and the dictionary reference in 

bytes 8 and 9 is that of the first label on 
the original BEGIN statement, if any. If 
there was no statement label, then the 
statement number occupies this slot. The 

presence of a statement number or statement 
label is indicated by a flag byte in 
position 35. This is set to 3N for a 
statement number, or to SL for a statement 
| label. Bytes 36-56 contain the same as 
| bytes 44-64 in a PROCEDURE entry type 1. 

The format for the entry type 1 derived 
from an ENTRY statement is as follows: 

Eyte Nurrbe r Descr iption 

1 Code byte X'82' 

2-3 Length 


2-3 Length 

4-5 Hash chain (STATIC chain) 

6-8 Pointer to transfer vector 


9-10 

11 


12-13 

14-16 


Statement number 

Other 1 code byte. (See 
"First code byte - other 1" 
in this Appendix.) The last 
bit will always be set to 
one, unless the label is the 
last label for a particular 
statement, in which case the 
last bit will be set to 
zero. 

Pointer to entry type 2 

Spare bytes for final assem- 
bly. The pseudo-code phase 
dealing with RETUkN 
(expression) will insert 
into these bytes a code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 
entered via this label. The 
code is used by the prologue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 
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17 


Block level 


Entry Type 3 


18 Block count Entry type 3 dictionary entries are 

constructed either froir an explicit dec- 
laration or from implicit and default 

19 Count of containing clock rules. Their format is as fellows: 


20 

BCD 

length-1 

21 

BCD 

of label 


Entry Type 2 


An entry type 2 describes the data 
attributes of an entry point. The format 
is as follows: 

Byte N u mbe r D es cr ip ti on 

1 Code byte X'85'. 

2-3 Length. 

4-5 Dictionary reference of 

entry type 3 

6-8 Offset, i.e., the position 

of the string dope vector in 
the DSA of the block to 
which the entry belongs. 
This will be zero if the 

item is not a string. 

9 DATA byte (see "DATA Byte" 

in this Appendix) . 

10-12 Data information, which is: 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed max- 

imum length, the binary 
version of the string 
length in the two left- 
most bytes of che data 

information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement giving the 
expression for the string 
length 

13-14 Picture table reference, if 

required. The storage allo- 
cation phase will change 
this to the dictionary ref- 
erence of a DED entry, the 
picture table reference 
being moved into this refer- 
ence if necessary 


By te N u mbe r De s cri p tio n 

I Code byte X'84' 

2-3 Length of entry. 

4-5 Dictionary reference of 

entry type 1 of PROCEDURE or 

ENTRY statement. 

6-7 Dictionary reference of 

entry type 2. This des- 
cribes the value returned 

when the label associated 
with this entry type 3 is 
invoked as a function. 

8-10 The offset in the DSA of the 

containing block of the 

first approximation of the 
storage for the value 
returned by this entry 
point, when it is invoked as 
3 . function . 

II The entry code byte. (See 

"Entry Code Eyte" in this 
Appendix. ) 

12-13 The dictionary reference of 

an item in the AUTOMATIC 
chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 
chain of the containing 
block . 

14-15 Switch bytes. The pseudo- 

code phase dealing with 
RET URN (expression) inserts 
into these bytes the bit 
pattern of the code which 
will signify that entry to 
the procedure was by the 
laoel associated with this 
particular entry type 3. 
Phase QF will use this to 

create MVI instructions. 

16-17 Dictionary reference of a 

SETS list. This will be 
zero if the attribute SETS 
was not specified. The for- 
mat of a SETS list is given 
at the end of this section. 

18-19 Dictionary reference of the 

dictionary entry for the 
label belonging to this 
entry type 3. 
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20 


Status byte. This byte will 
contain X'00' or X'FO'. 
X'OO' indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 
X'FO' indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 


21 2*n where n is the number of 

parameters. This is zero if 
the status byte is X'FF' 


22 onwards If the status byte is X'00' 

there are n two-byte ref- 
erences of parameter des- 
criptions. A parameter des- 
cription is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular par- 
ameter is not described, 
i.e. if there are two adja- 
cent commas in the ENTRY 
attribute, then the dic- 
tionary reference is zero. 
When the status byte is 
X'FO' then an entry type 3 
is only 23 bytes long. 

22+ 2n- DECLARE statement number 

23 + 2n 


SETS List Format 


Byt e Nu mber Description 

1 Code byte X'C8* 

2-3 Overall length of original 

BCD entry 

4-5 2*nl where nl is the number 

of identifiers in the SETS 
list. If * was specified, 
these bytes contain 2*nl+l. 

6-5+2*nl Dictionary references of the 
identifiers in the SETS 
list. 

6+2*nl n2, the number of para- 

meters in the SETS list. 

7+2*nl n2 numbers of one byte each. 

onwards These are the parameter 
numbers and will be in 
ascending order. 


Entr y Type 4 


Entry type 4 dictionary entries describe 
external entry points. Their format is as 
follows : 


Byte N umber 2®S£E.iEi:ion 

1 Code byte X'03' 

2-3 Length 

4-5 Hash chain, later used 

as the STATIC chain 

6-8 Offset of the lead constant 

in STATIC 

9-11 Offset in the DSA of the 


declaration block of the 
storage for the first 
approximation of the value 
returned . 

12-13 The dictionary reference of 

an item in the AUTOMATIC 
chain of the declaring 
block. Entry type 4 entries 
are members of the AUTOMATIC 
chain of the declaring 
block. 

14 The ENTRY byte. (See "ENTRY 
Byte" in this Appendix.) 

15 The DATA byte. (See "DATA 

Byte" in this Appendix.) 

16-18 Data information which is: 

a) with numeric data, the 
precision and scaling, 
left justified 

b) for strings of fixed max- 
imum length, the binazy 
version of the string 
length in the two left- 
most bytes of the data 
information 

c) for strings of adjustable 
length, the text refer- 
ence of a second file 
statement giving the 
expression for the string 
length 


19-20 

Picture table addres 
required. 

s if 

21-22 

Dictionary reference 
SETS list 

of a 

23 

Status byte. If this 

byte is 


X'00* the meaning 

is the 


same as the status 

byte in 


an entry type 3. 

If trie 


byte is X'FF' it is 

implied 
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that no parameters were des-^ 
cribed 

24 2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 

25 n dictionary references to 
parameter descriptions as in 
an entry type 3 

25+2*n Level 

26 + 2*n Count 

27+2*n BCD length-1 

28+2*n 

onwards BCD of identifier 


Entry T ype 5 


Entry type 5 dictionary entries describe 
the entry points which are formal paramet- 
ers. They have the same format as entry 
type 4 except that: 

Byte 1 is X' 83 ' 

Bytes 4 and 5 contain the address of 
the formal parameter type 1 entry 

Bytes 6 to 8 contain the offset in the 
DSA of the declaring block of the 
address slot associated with a formal 
parameter 

No BCD is contained in the entry 


G EN E RIC Entry Point 


The format for a GENERIC entry point is 
as follows: 

Byte Number Descr iption 

1 Code byte X'02' 

2-3 Length 

4-5 Hash chain 

| 6-8 Offset 1 Slot 

| 9-10 DECLARE statement number 

| 11 2n, where n is the number 

of two-byte addresses fol- 
lowing 

| 12-ll+2n Pointers to entry type 4 

or 5, ENTRY labels, or BUIL- 


Appendix C: 


TIN entries. These entries 
are made when an identifier 
is given the attribute GEN- 
ERIC. The pointers are to 
the entries which contain 
specifications of the var- 
ious possible attributes 

| 12+2n Level 

| 13+2n Count 

| 14+2n BCD length-1 

| 15+2n BCD 

onwards 

| 3. COD E B Y TES FOR ENT RY DICTION ARY ENTRIES 

ENTRY Code By te 

This code byte is used in ENTRY type 3, 
4, and 5 dictionary entries. The format is 
as follows: 

B it Nu m be r De s cri p tion 

1 IRREDUCIBLE 

2 REDUCIBLE 

3 USES 

4 SETS 

5 SECONDARY 

6 RECURSIVE 

7 Has data attribute 

8 Not used 

Option s C o de Byt e 

This code is used in entry type 1 
dictionary entries for PROCEDURE state- 
ments. The format is as follows: 

De scription 

1 REENTRANT 

| 2 ON Block 

3 MAIN 

j 4 TASK 

5 RECURSIVE 
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|0)|-P 


6 

OPTIONS 


another chain, e.g., AUTO- 
MATIC or STATIC chain 

7 

Contains RETURN (expression) 
statement 

2-3 

Length 

8 

ENTRY name is passed as 

4-5 

Initially contains the hash 


argument 


chain. After the dictionary 
scan, this is re-used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 

Optimization Byte 





6-8 

Offset inserted by storage 
allocation phase (as for a 

This code byte is used in entry type 1 


data item) 

dictionary 

entries . 

9-10 

DECLARE statement number 

Format of 

the Optimization Byte: 

11 

'Other 1' code pyte (See 

Bit Number 

Description 


"First Code Byte - Other 1" 
in this Appendix.) 

1 

Not elidible for DSA in 

library workspace. 

12 

'Variable' code byte (See 
"Variable Byte" in this 

2 

Eligible for DSA in STATIC 


Appendix) 


storage . 

13 

'Other 2' code byte (See 

3 

Needs invocation count. 


'Second Code Byte - Other 2" 
in this Appendix.) 

4 

Needs current file slot. 

14 

'Ocher 3' code byte (See 

5 

Contains asynchronous CALL. 


"Third Code Byte - Other 3" 
in this Appendix.) 

6 

Not used. 

15 

'Other 4' code byte (See 

7 

Not used. 


"Fourth Code Byte - Other 4" 
in this Appendix.) 

8 

Not used. 

16 onwards 

Content determined by varia- 
ble code byte. 

4. DICTIONARY ENTRIES FOR DATA, LABEL, AND 


After variable information 

STRUCTURE 

ITEMS 





2 pytes 

Symbol slot 

Label Variables - Obtained from DECLARE 

1 cyte 

Level 


Stateme nt 

1 byte Count 


Byt e N u mber 
1 


Descri ption 


Code byte may be X'07', 
X ' 1 7 ' , X ' 27 ' , X ' 37 ' , X ' 8 7 ' , 

X ' 97 ' , X ' A7 ' , X ' B7 ' . The 
last four cases apply when 
the item occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 
contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 
entry. In tne first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary, this slot 
will oe re-used to form 


1 byte BCD length-1 
BCD 

With the exception of the 2-byte symbol 
slot, the general format is the same as for 
a structure. 


Dictionary Entries for Da ta Items 

The format is as follows: 

Byte Number Description 

1 Code byte may be X'OF', 

X ' 1 F ' , X ' 2 F ' , X ' 3F ' , X'RF', 
X ' 9 F ' , X * AF ' , or X'EF'. The 
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2-3 

4-5 

6-8 

9-10 


11-16 


17-19 


20-21 


last four cases apply when 
the iterr. occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 
contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 
entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary this slot 
will be re-used to form 
another chain, e.g., AUTO- 
MATIC or STATIC chain 22 

Length 

See above 

Offset. See "Format of 
Variable Information" in 
this Appendix 1 

DECLARE statement number. 

If the variable has not been 1 

explicitly declared, this 
number is zero; otherwise, 
it is the statement numcer 1 

assigned to the DECLARE 
statement from which the 
variable was obtained. 


the picture table entry 

2. If the DEC bit is on and 
the SYMBOL bit off, this 
slot points at a DED 
entry. If the item has a 
picture, the DED entry 
will contain the picture- 
table address 

3. If the SYMEGL bit is on, 
the slot will point at a 
SYMBOL entry. This again 
will contain the picture 
address, if specified 


Variable information. The- 
contents of these bytes are 
determined by the variable 
code byte. See "Format of 
Variable Information" in 
this Appendix 


byte Level 


byte Count 


byte BCD length-1 


BCD 


Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 

(See "Code bytes" in this 
Appendix for a description 

of these bytes. ) M ajo r and M inor S tructure Entries 


Data information, which is: 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement giving the 
expression for the string 
length 

Symbol slot, containing 

either zero, or one of the 

following : 

1. If the SYMBOL and DED 
bits are not on, and the 
data item has a picture, 
these bytes contain the 
dictionary reference of 


These entries do not include base ele- 
ments, i.e., they do not have any data 
attributes or LABEL. Their format is: 

Byte Number Description 

1 Code byte may be X'2E', 

X * 3 E ' , X ' AE ' , or X'BE'. The 
last two indicate that there 
is no BCD attached. When 
the identifier occurs in the 
parameter list of a PROCE- 
DURE or ENTRY statement, 

bytes 4-5 contain the dic- 
tionary reference of the 

formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 

This is later modified Joy 

Phase FT 

2-3 Length 

4-5 See byte number 1 
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6-8 


These bytes are used by the 
storage allocator; they will 
finally contain one of the 
following offsets: 

1. For structures which are 
parameters, or are dynam- 
ically defined, the off- 
set from the start of the 
major structures dope 
vector or the minor 
structures dope vector. 

2. For major structures, the 
offset from the start of 
AUTOMATIC or STATIC of 
the address slot which 
will point at the struc- 
ture dope vector 

3. For CONTROLLED struc- 
tures, only that speci- 
fied for minor structures 
in 1 , above 

4. For structures in STA- 

TIC EXTERNAL the contents 
depend on the setting of 
the "dope vector 

required" bit in the 
"other 3" code byte. If 
this bit is off and the 
item is a major struc- 
ture, the slot contains 
the offset from the start 
of STATIC of the slot 
which will contain the 
address of the first byte 
of the structure. If the 
dope vector bit is on, 
the slot contains the 


offset from the start of 
STATIC of the address 
slot which will point at 
the structure dope vec- 
tor. The offset slot is 
not used in either of the 
above cases for minor 
structures 


9-10 DECLARE number, i.e. the 

statement number of the 
DECLARE statement which pro- 
duced the structure 

11-15 Five code bytes. These are: 

other 1, variable, other 2, 
other 3, and other 4 

16 Variable information. The 

content is determined by the 
variable code byte, and will 
always include the informa- 
tion required fcr structure 
members. The format is des- 
cribed under "Format of 
Variable Information" in 
this Appendix 

After variable information: 

1 byte Level 

1 byte Count 

1 byte BCD length-1 

BCD 
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5. COD E B YTES F OR DATA, LA BEL, A ND STRUCTURE DICT IONARY ENT RIES 


The Fi rs t Code Byt e - Ot he r 1 


r T 

Eit 
No. 


+ - 


Description 


Set By 


Symbol or requires load constant if 
label constant 


Defined on 

Mentioned in CnECK list 

Needs DVD 

Last member in structure 
Variable dimensions 

* dimensions 

* string length for data item 

— More labels follow for a label 
constant 

Major Structure - no member of 

the structure has a dimension or 
length attribute which is not * 


Phase EL, FT, or 
NU 


Phase EL 

Phase FO 

Various 

Phases EL or LW 
Phase EL 

Phases EL and FT 
Phases EL and FT 
Phase EG 

Phase L Y 


The Se co nd Code Byt e - Other 2 


r t 

Bit 
No. 


+- 


Description 


Set by 


1 

2 

3 

4 

5 

6 

7 

and 


8 

L 


Dynamically defined 

CONTROLLED major structure with 
varying strings 

NORMAL = O, ABNORMAL = 1 

Reserved 

Formal Parameter 
INTERNAL = O, EXTERNAL = 1 

00 = AUTOMATIC or DEFINED or simple 

parameter 

01 = STATIC 

11 = CONTROLLED 


Phase EL 
Phase EY 

Phases El and FT 

Phase El 
Phase El 
Phase EL 

Phase EL 
Phase EL 
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The Thi rd C ode Byte - Othe r 3 


r t 

Bit 
No. 


Description 
Needs dope vector 


Set hy 


Needs DED 

Needs no storage for the iten 
itself 

Correspondence defined 
Chameleon 

Sign bit for first offset 


Indication of the state of 
the value in the first offset 

0 = rubbish 

1 = good value 

As above but for second 
address slot 


Phases EK and EY if variable 
dimension entries, variable 
string length, or in 


CONTROLLED storage; 

Phase 

NU 

when item appe, 

in an 

argument list 

Phase 

NU 



Phase 

GP 



Phase 

FV 



Phase 

GP 



Phase 

PH 

for 

STATIC and 

Phase 

PT 

for 

AUTOMATIC 

Phase 

PH 

for 

STATIC and 

Phase 

PT 

for 

AUTOMATIC 

Phase 

Pil 




The Fourth Code B yt e - Oth er 4 


r T 

Eit 
No. 


+- 


Description 


Set by 


2 

and 

3 


A constant has oeen produced 
for this structure or array 

00 = Not temporary 

01 = Temporary type 2 

10 = Temporary not sold 

11 = COBOL temporary 


Member of defined structure 

Packed = 0 Aligned = 1 

iy.ajor structure 

No dope vector initialization 

A temporary type 2 which has 
been incorporated in work- 
space 1 or RDV required. For 
COBOL temporaries this bit 
means RDV required 


Phase JK 


Phase GP, HF, HR, 
IM, or LB 


Phase FV 
Phase EL 
Phase LL 
Phase GP 
Phase OE 
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V ar ia ble B yte 


r T 

Bit 
No. 


H- 


Descript ion 


Second address slot 

Dimensioned 

Member of structure 

Value list for label variables or 
POS for defined items 

Initial value if not a' structure 
or LIKE if a structure 

EXTERNAL slot. 

Defined slot 

CONTROLLED from ALLOCATE Statement 


l 


For a detailed explanation of the signi- 
ficance of these bits and a description of 
the extra slots associated with them, see 
"Format of Variable Information" in this 
Appendix . 


Dat a Byte 


r _. 


T T 

7 


BIT 


1 | 2 

I 

1 

1 | POINTER/ 

I OFFSET * 

I 

— i -f 

0 | Adjustable | Aligned 

| Length j 

j String j Packed 


+- 


+- 


CAD or 

NUMERIC 

FIELD 


Sterling 

NCN 

STERLING 


Long 

| Cad. 

1 

Einary 

I 

Float 

1 

Complex 

1 

l 

Short/ 

j Numeric 

1 

Decimal 

1 

Fixed 

1 

Real 

1 

0 

OFFSET 

| Field 
■ + 

1 

_ 

1 


i 

_ 

1 

H 


Varying 

| NO 

1 

Char 

! 

AREA 

1 

Not 

1 

i 


j Picture 

1 


1 

VARI - 

1 

Used 

1 



j Picture 

1 

Bit 

1 

ABLE* 

1 


1 

0 


STRINGS 


| *AREA, POINTER, and OFFSET data byte settings are: 

j AREA: X'02' superimposed on the non-pictured CHAR string aata byte entry 

j POINTER: X'40* superimposed on the FIXED EIN data byte entry 


OFFSET: X’50' superimposed on the FIXED BIN data byte entry 


6^ FOR MAT OF VARIAB LE INFORM ATI ON 


Data items, labels, and structures 
require pointers to various tables if they 
have certain attributes; for example, if 
they are dimensioned or defined on. a base. 
Space will be left for information only if 
the attribute is present. This leads to an 
addressing problem of how to find the 


position of the information when the pre- 
sence of other attributes alter its 
address . 

The problem is resolved by collecting, 
into one byte, all the attributes which 
require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The pre- 
sence of a bit in this byte indicates the 


Appendix C: Internal Formats of Dictionary Entries 


357 



presence of further information. The off- 
set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 

The information produced by the presence 
of the following bits in the variaole byte 
is as follows: 

Bit number 1 : 

The second offset slot is 4 bytes long. 
The contents of this slot are described 
in this appendix. The decision to 
include a second offset slot in a 
dictionary entry is based on questions 
about the nature of the identifier. 
Refer to figure 9. 
r~i 

1 Y | implies that a second offset 
L — 1 slot will be given, 

r~T 

| N | that it will not. 

i i 

Bit number 2 : 

The dimensioned bit. The slot produced 
by this is three bytes long. Tne first 
byte will contain the number of dimen- 
sions, the next two the dictionary 
reference of the dimension (multiplier) 
table 


Bi t numbe r _ 4 

POS for defined items. The two-byte 
slot will contain the POS value as a 
binary integer. 


Bi t nu m be r 5: 

The initial value or LIKE bit is a 
four-byte slot. 


1. For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated 'Initial 
Value' dictionary entry. The fourth 
byte contains X'FO' 

2. For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte contains X'OF'. 

3. For initial labels. The first three 
bytes contain the text reference of 
a set of second file statements. 
The fourth byte contains X'FF'. If 
there is an initial slot but no 
initial values the fcurth byte con- 
tains X ' 00 ' 

4. For LIKE. The first two bytes con- 
tain the LIKE chain. The third and 
fourth bytes contain the dictionary 
reference of the likened structure 

bit number 6: 

The EXTERNAL bit. This 2-Lyte slot 

contains the ESD number 

Bit n umber 7: 

The DEFINED bit. This 7-fcyte slot 

contains the following: 


Bit numb er 3: 

Member of a structure bit. This slot 
is ten bytes long and has the following 
format : 

Byte Numb er Description 

1 Declared level number 


2 


True level number 


3-4 


5-6 


7 

8-10 


Dictionary reference of 
the containing structure 

Dictionary reference of 
the next member in the 
structure 

Alignment 

Element length 


B yte N umber Des cri pt io n 

1-2 Defined chain. 

3-4 Dictionary reference of base 

5-7 The text reference of a 

second file statement. 


After the dictionary these 
bytes will contain X ' FFFFFF ' 
if the base is unsubscript- 
ed . 


B it num b er 8 : 

The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two-byte slot 
contains the dictionary reference of 
the dictionary entry for the data con- 
structed from the DECLARE statement 
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| Entry 

L 


Y | Is it data 
r — -1 iterr,? 
j l T 

I IN 

I V 


r n 

| Is it struc- | N 

| ture? (■— 

L T J 

>|< 

YV 

r 1 

| Is it formal |Y 

j parameter? j- — 


| Is it con- 

I 

j trolled? 

L T 

IN 

V 


j Is it static? j-- 


|Y | 

(• J 


r n 

| Is it label |N r — , 

■>j variable? [• — >|N| 

l j i i 


r 1 

| Is it struc- | N 
-> j ture member? |— 

L T -J 

|Y 

V 


| Is it ex- 

I 

| ternal? 

L T 

JN 


I Y r~n 
h — > | Y| 
I i — J 


r 1 

I I ¥ r~i 

| Is it string? }• — > j Y j 

In 

V 


r ~i 

| Is it struc- | Y f-T 
j ture member? |- — > | Y j 

In 

v 


I Y r - i 

Is it defined?^ — >|Y| 
T J L - J 

IN 

V 


is it dimen- |Y r — , 
sioned? j- — >|Y| 

j i i 


•Figure 10. Decision to Include a Second Offset Slot 
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Use s of the QFF SET1 and QFFS ET2 Slots in 
Par a , Lab el, and St ruc ture Di ctionary 
Entries 


The 0FFSET1 slot is in bytes 6-8 of the 
dictionary entry and the 0FFSET2 slot is 
part of the variable information. 


STATIC IN TER NAL Str uctu res 


Major and minor struc tur e entr ies : 

0FFSET1 slot not used. OFFSET 2 slot 
contains offset of structure dope vec- 
tor from start of STATIC INTERNAL con- 
trol section (if there is a dope 
vector) 

Basi c elements : CFFSET1 slot contains 

offset of virtual origin (in the case 
of dimensioned items) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
0FFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 


AUTOM ATIC Structures 


Basic ele me nts : 0FFSET1 slot not used. 

OFFSET 2 slot contains offset of 
element's dope vector from the start of 
the EXTERNAL control section 


CONTROLLED S tr u ct ures 


Majo r a n d minor s tr uct ures : 0FFSET1 slot 
not used. 0FISET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will oe zero.) 

Basic ele ments: 0FFSET1 slot not used. 
0FFSET2 slot contains offset of 

element's dope vector relative to 

address in pseudo-register. 


Non-S tructured Arrays in STATIC INTERNA L 


0FFSET1 slot contains offset cf vertical 
origin of the array relative to start of 
data region. 0FFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 


Const a nt dimens ions : as for STATIC 

INTERNAL except that all offsets are 
relative to start of DSA. 

Ad ju s table d im ensi ons: major and minor 
structure entries: CFFSET1 slot not 
used. 0FFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 


Non-S truct ured Ar rays in AUTOMA TIC 


Const an t dimensions^ as for STATIC 

INTERNAL 

Adj ustable dim ension s: 0FFSET1 slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region,, 


Ba s ic el ement s: 
OFFSET 2 slot 

element's dope 
from the start 


CFFSET1 slot not used, 
contains offset cf 
vector (if there is one) 
of the DSA 


STATIC EXT ERNA L, CONTROLLED or Parame ter 
Array 


S TATIC EXTERNAL and Paramete r St ru ct ures 


Majo r structu r e ent ry: CFFSETl slot con- 
tains offset of address slot from start 
of data region. 0FFSET2 slot contains 
size of EXTERNAL control section. 
(Offset of major structure dope 
vector = 0 . ) 


0FFSET1 slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.) 0FFSET2 slot is not present., 


No n-St ructured Sc alar S tring s in STATI C 
INTERNAL ’ ’ 


Minor struc ture entries^ OFFSET! slot 

not used. 0FFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 


OFFSET'l slot 
from start of 
contains offset 
one) from start 


contains offset of datum 
data region. 0FFSET2 slot 
of dope vector (if there is 
of data region. 
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N on-St ruc tured Scala r St rin gs in A U TOM ATIC 


Constant len gth: as for STATIC INTERNAL 

Adju st able l eng th ; OFFSET1 slot not 

used. 0FFSET2 slot contains offset of 
dope vector from start of data region. 


Non-S tr uct ured S cala r S trings in ST A TIC 
E XTE R NAL , CO NTROLLE D or Parameter 


0FFSET1 slot contains offset of address 
slot which points to string dope vector 
(not used in the case of ^CONTROLLED) . 
0FFSET2 slot not present. 


Non-S tructur ed N o n- Strin g Scalars i n 
A UTOMATIC or ST AT IC INTER NA L 


OFFSET! slot contains offset of datum 
from start of data region. 0FFSET2 slot 
not present. 


N on- St ructured Non-S tr ing Scalar s in ST AtIc 
EXT ER NAL ,' CONTROLL ED or Par a meter 


OFFSET! slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED) . 0FFSET2 slot not 
present . 


7. OTHER DICTIONARY E NTRIES 


Label Const a nts - Extracted by t he R ead-In 
Phase 


11 

Otner 1 Code Byte (See 
"First Code Byte - Other 1" 
in this Appendix 

12-14 

Second Offset Slot 

15-16 

Spare for Final Assembly 

17 

Level 

18 

Count 

19 

Count of Containing Block 

20 

BCD Lengt.h-1 

21 etc. 

BCD 

Compiler Labels 

The format is identical to that of a 
label constant, except for the emission of 
the BCD. The code byte is X'C3'. 

Formal parameter type 1 entry 

These entries are derived from the PRO- 
CEDURE and ENTRY statements, and do not 
contain any information other than that the 
identifier is a formal parameter. The 
format is as follows: 

Byte Number 

Description 

1 

Code byte X'40' 

2-3 

Length 

4-5 

Hash chain 

6-7 

These bytes will point to a 
full description of the 
identifier after Phase EK, 
or Phase FA, or Phase FE. 
These full descriptions are 
dictionary entries for the 
type of item they are des- 
cribing. They do not con- 
tain the BCD of the iden- 
tifier, but in the slot for 
the hash chain there is the 
dictionary reference of the 
corresponding formal param- 
eter type 1 entry. 

8 

Level 

9 

Count 

10 

BCD length-1 

11 

BCD 


Byte Number Description 

1 Code byte X'OO' 

2-3 Length up to BCD length-1 

byte 

4-5 Hash chain - STATIC chain 

6-8 Offset 

9-10 Statement number (except 

when the label is mentioned 
in an ON CHECK list, in 

which case it gives the 
chain to the label BCD dic- 
tionary entry, code byte 
X' CE' ) 
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16 


Level 


For a description of the types of entry 
pointed to, see "Dictionary entry for par- 
ameter descriptions." 17 Count 


Dictionary e ntry for FILE 


18 BCD length-1 

19 onwards BCD 


For attributes specified in OPEN state- 
ment the format is as follows: 


Number 


Description 


FILE P aramet ers a nd Te mporari es 


1 Code byte X'98' 

2-3 Length 

4-5 STATIC chain 


Code X'89' is used for file parameters 
and for file temporaries. The format of 
the entry will be the sarre as that for 
label variables. 


6-8 0FFSET1 

9-10 DECLARE statement number 


FI LE E nviron me nt Entries 


11 onwards String of second level mark- 
ers (without preceding ' C8' 
code bytes) one for each 
attribute other than FILE, 
TITLE and IDENT. 

This entry is created by the read-in 
phase and is referred to only as the 
argument of an ATTRIBUTES marker. 


FILE Co n stants 


Code X’08* is used for file constant 
entries, which have the following format: 

Byte N umber Desc ription 

1 Code byte X'08' 

2-3 Length 

4-5 Hash chain, subsequently 

EXTERNAL or STATIC chain 

depending on whether FILE is 
EXTERNAL or INTERNAL 


Code X'C8' is used for the environment 
string . 

Byte N um be r Description 

1 Code byte X'C8' 

2-3 Length 

4 onwards Internally coded form of 
argument of ENVIRONMENT 
option 

Code X'C8' is also used for attributes 
collected from the DECLARE statement. 

By te Number Description 

1 Code byte X'C8' 

2-3 Length 

4 onwards String of second level mark- 

ers (without preceding code 
bytes X'C8'), one for each 
attribute other than FILE, 
ENVIRONMENT, EXTERNAL, or 
INIERNAL 


6-8 

9-10 


OFFSETl (STATIC or transfer 
vector offset) 

Dictio n ar y E ntrie s fr o m Cons tants 

Declare statement number 


11-12 

Dictionary 

reference of 

The format 

is : 


attributes 

none) 

entry (zero if 

Byte Number 

Description 

13 

Code byte 

(similar to the 

1 

Code byte X'88 


"other 2" code byte. Only 

internal/external bit used) 

2-3 

Length 

14-15 

Dictionary 

reference of 

4-5 

Hash chain 


environment 

none) 

string (zero if 

6 

DATA byte 
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N ote 

1 . 

ing: 


7 Data Precision* 


8 Scale Factor* 

*These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 

9 Type (see note 1) 

10 DATA byte (2) 

11 Data Precision (2)** 

12 Scale Factor (2)** 

**These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 

13-14 Dictionary reference - used 

when a phase requires a con- 
stant to be converted into a 

specific location in storage 

15 BCD 


The type byte has the following ruean- 


Fir st and seco nd bits: 


Eighth bit: 1 indicates that no con- 
version is required. 

2. After the constants processor the 
bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 

3. Shoulc a DED be required, this will ca 
constructed by Phase PL. The two 
bytes, precision(2) and scale 
factor (2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it, and the dictionary ref- 
erence preceding the ECD will be the 
dictionary reference of this. 


The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 


Dictio nary Entri es for Built-i n Funct i on s 


Task Identifiers and EVENT Data 


00 - normal BCD constant. The first The format is: 

offset slot must be relo- 
cated by the storage alio- Byte Number Description 


cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the con- 
stants pool 

11 - the BCD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 

10 or 01 - the constant is required to 
be converted into a speci- 
fic location in storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 

Sixth bit: 1 indicates that the con- 
stant requires a DED. 

Seventh bit: 1 indicates that the 
constant requires a dope vector. 


1 

Code byte X'04' 


2-3 

Length 


4-5 

Hash chain - later 
the STATIC chain 

becomes 

6-8 

Offset - gives the 
in STATIC storage 
load constant for 
routine 

position 
of the 
Library 

9-10 

Code bytes - the first code 


byte contains a value which 
identifies the built-in 
function and also provides 
information about it. It is 
used mainly by phases IPS and 
MD-MM inclusive. The second 
code byte contains further 
information about the built- 
in function (See "Second 
Code Byte.") 

11-12 DECLARE statement number 
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13 

Level 

14 

Count 

15 

BCD lengt.h-1 

16 

BCD 


Sec ond Code By te 


The second 

code byte contains the 

following information: 

Bit Number 

Description 

1 

May oe passed as an argument 

2 

May have an array as an 
argument 

3 

Must have an array as an 
argument 

4 

Is a pseudo-variable 

5 

Indicates to which of the 
two tables the offset refers 

6 

May have an array (or 

structure) as an argument, 
but will return a scalar 
result 


Internal Librar y Functi on s 


Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 

Lyte Number 

Description 

1 

Code Byte X'C2' 

2-3 

Length 

4-5 

Hash chain 

6-8 

Offset 

9 

Library Code - identifies 
the particular Library rou- 
tine required 

10 

Not used 

11-12 

Code Pytes - the first code 
byte contains a value used 
by phase MG to pick up com- 
plete information about the 
Library function. The sec- 
ond code byte contains 



further information about 

the function 

13 

Level 

14 

Count 

BCD entries 


BCD entries are used when the LIKE, 
DEFINED, or POOL attributes are used. A 
short dictionary entry with the format 
given below is used. This is pointed at by 
the dictionary entry with the attribute. 

Byte Number 

Description 

1 

Code Eyte X'40" 

2-3 

Length 

4 

BCD length-1 

5 

BCD 

Dictionary Entry for Parameter Descriptions 

Dictionary entries for parameter des- 
criptions are identical with the normal 


entry for data variable, label variable „ 
structure, file, or entry points, except 
for the following details: 

Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes contain- 
ing level and count 

No BCD is present 

No block identification is present for 
ENTRY cr FILE 

The code byte for an entry point 
referred to as entry type 6 - is X'86* 


ON Statements 


Entries for ON statements are made by 
Phase FC, and contain the following: 

umber Descript io n 

1 Code Byte X'CL' 

2-3 Length 

4-5 


AUTOMATIC chain 



6-8 


Offset 


PI CTU RE Entry 


9 

Code byte as supplied by 
Read-In Phase 

the 

10 

Block level 


11 

Block count 


12 

n 


13 

onwards n dictionary references of 
variables cr CN condition 
entries 


ON Condition 


This entry 

is made by Phase FO: 

Byte Number 

Description 

1 

Code Byte X'4D' 

2-3 

Length 

4-5 

Hash chain later used as 
AUTOMATIC chain 

6-8 

Offset 

9 

Code byte as supplied by the 
read in phase 

10 

Block level 

11 

Block count 

12 

BCD length-1 


13 onwards BCD 

CHECK Lis t E ntry 

This entry is made by Phase FO: 

Byte Nuitioer De sc rip ti on 

1 Code Byte X'C8' 

2-3 Length 

4 n where n is the number of 

dictionary references fol- 

lowing 

5 onwards Dictionary references (2n 

bytes) 

Appendix C: 


The format of an entry in the picture 
table in the dictionary. 

Byte_Nuirber Desc ri ption 

I Code Byte X'C8' 

2-3 Length = L+13 

4-5 Contains address of next 

entry in picture chain 

6-8 Offset in STATIC storage 

9 Code Byte (after Phase FO) 

(See Code Byte description) 

10 P - the number of digit 

positions in field in nurrer- 
ic picture. 

II Q - the number of digit 

positions after V character 
in numeric picture. Code 
X'80' represents 0 T X'7F' 
represents -1, and X'81' 
represents +1. 

12 W - apparent length of pic- 

ture. - length of picture 
following. (For a non- 
numeric picture the length 
is obtained in bytes 12-13.) 

14 onwards Picture. 


Byt e 9 - C ode By te 


Bi t Nu m be r Des cription 

1 0 string 

1 numeric 

2 0 correct 
1 error 

3 0 not sterling 
1 sterling 

4 0 short 
1 long 

5 Not used 

6 0 decimal 
1 binary 

7 0 fixed 

1 floating 

8 Not used 
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Dictionary Entry for Wo rk spac e R eq uireme nt Symbol Tab le Entr y 


The format for a dictionary entry for 
workspace requirement is: 

Byte Number Description 

1 Code Byte X'C8' or X'CA' 

2-3 Length = 8 

4-5 Total workspace required 

6-8 Offset 

If the code byte is C8 this is the 
temporary workspace used by pseudo-code 
| (temporary type 1) . 

Dictio na ry Entry fo r P aramet er List s 

Dictionary entries for parameter lists 
have the following format: 

Byte Numbe r D escription 

I Code Byte X'C5* 

2-3 Length 

4-5 STATIC chain 

6-8 STATIC offset 

9-10 Assembled length 

II onwards Contains DCA's 

Dictiona r y Entries f or Dope Vector 
Skel etons 

Byte Numbe r D esc rip tion 

I Code Byte x'C6' 

2-3 Length 

4-5 STATIC chain 

6-8 Offset in STATIC 

9-10 Dictionary reference cr 

DECLARE number 

II onwards Bit pattern of skeleton dope 

vector 


Symbol table entries are made by Phase 

PL. 

Byte Number Description 

1 Code Eyte X'C7' 

2-3 Length 

4-5 STATIC chain 

6-8 Offset in STATIC of DED 

9-11 Actual DED if not pictured,. 

If a picture is involved,, 
the last two bytes are the 
dictionary reference of the 
picture table entry 

12-13 Offset in STATIC storage of 

symbol table entry 

15-16 Dictionary reference of next 

item in the symbol table for 
this block 

17-18 Dictionary reference of item 

requiring entry in symbol 
table 


Dictionar y Entry f or AU TOM ATI C Chain 
Delimite r 


An entry for AUTOMATIC chain delimiter 
is made by Phase PP. 

Byt e Numbe r De scrip tion 

1 Code Byte X'CC' 

2-3 Length 

4-5 AUTOMATIC chain 

6-7 Pointer to first second file 

entry 

8-9 Pointer to second second 

file entry 


DE D Dic tionary En try 


An entry for a DED is created by Phase 

PL. 

Byte N umber Description 

Code Byte X'C7' 
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This entry is constructed by Phase PD 
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2-3 

Length 


4-5 

STATIC 

chain 

O'. 

i 

00 

STATIC 

offset 

9-11 

Actual 

DED 


If the DED requires a. picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 

This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 


DED2 En tries 


These entries are generated when a DED 
is required for the conversion of a tem- 
porary result. 

B yte Number Descri ption 

1 Code Byte X'Cl' 

2-3 Length = 11 

4-5 STATIC chain 

6-8 Offset 

9-11 Actual DED 

Dictionary Entry fo r FED - Forma t E leme nt 
Descriptor . 


The entry for a FED is made by Phase NV. 

The entry is identical with a DED 2 entry 
but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 

Byte Number Descri ption 

1 Code Byte X'Cl' 

2-3 Length = 12 

4-5 STATIC chain 

6-8 STATIC Offset 

9-12 Actual FED 


Label BCD Entries 


Label BCD entries are made by Phase FO. 

Byte N u mb er Description 

1 Code Byte X'CE* 

2-3 Length 

4-5 DECLARE number 

| 6-7 Offset of the BCD 

in STATIC 

| 8-9 Dictionary reference of item 

j requiring BCD 

These entries are constructed when a 
statement label or a PROCEDURE or ENTRY 
| label is mentioned in an ON CHECK list, 
jl'hese entries are also made for EVENT and 
|TASK variables. Phase PD will allocate 
storage in STATIC for the BCD of the labei, 
and place the offset of this in the above 
entry. 


Dope Vector Entr ies f or Temporaries 


This entry is constructed to indicate 
that a dope vector is required for a 
temporary result. At this stage the bytes 
in the entry contain the following: 

Byte N umber Descrip ti on 

1 Code Byte X'CO' 

2-3 Length 

4-5 AUTOMATIC chain 

6-8 Offset in the temporary type 

1 stack. After Phase 
this will contain the offset 
from the start of the DSA 

9-10 Dictionary reference of dope 

vector skeleton entry 

11-12 Length cf string 


I Record Dop e V ec to r Entry 


This entry is constructed when a varia- 
Jble requires a record dope vector. 

Byte Number Description 

1 Code Eyte X'C9* 
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2-3 

Length 


4-5 

STATIC or AUTOMATIC chain 

6-8 

Offset 


9-10 

Dictionary reference 

variable 

of 

11-18 

Eight bytes of RDV text 


19-20 

DECLARE number 


Dope Vector 

Descriptor Entry 


This entry is constructed for a struc- 
ture which requires a dope vector descrip- 
tor . 

Byte Number 

Description 


1 

Code Byte X'CC' 


2-3 

Length 


4-5 

STATIC chain 


6-8 

Offset 


9-10 

Dictionary reference 

structure 

of 

11-12 

Chain to RDV entry 

DECLARE number 

or 

13. . . 

DVD text set up oy Phase 

JK 

Format of a 

Second File Dictionary Entry 


Eyte Number 

Description 


1 

Code byte X'C8' 


2-3 

Length of entry 


4-5 

Statement number of the 
DECLARE or other statement 
giving rise to the second 
file statement 

6-7 

Dictionary reference of 

the 


entry type 1 of the block 
from which the second file 
statement was extracted 

8-9 Dictionary reference of a 

three-byte slot in the dic- 
tionary . 

10 Type of second file state- 

ment, i.e. the function it 
performs. This is the sec- 
ond byte of the dictionary 
reference used to designate 
the function in the actual 
second file statement 


[Di ct ionary Entr y for a STATIC PSA 


This entry is made by phase PA (whenever 
a block has its DSA in STATIC). The "size 
of DSA" slot (right-hand two bytes) in the 
Entry Type 1 is used to contain the dic- 
tionary reference in this entry. 


Byte Number 

Description 

1 

Code byte X'C8' 

2-3 

Length = 20 

4-5 

Dictionary reference of the 
next STATIC DSA entry, or 
zero if this is the last 
entry. 

6-7 

Offset address slot in STA- 
TIC for the DSA (set by 
phase PD) . 

8-10 

Size of DSA (set by PT and 
amended by RF). 

11-12 

Dictionary reference of the 
Entry Type 1 of the block. 

13 

Code byte to be put into 
first byte of DSA. 

14-16, 

Offset of start of DSA in 
STATIC (set by phase TO) . 

17-18 

Head of block's automatic 
chain . 

19-20 

Not used 


8. DIMENSION TABLE 


Each entry containing dimension informa- 
tion will result in a table being set up,. 
This table is shown in Figure 10. 
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Not e : The one-byte marker is: 

| 00 if bound is fixed point constant; bound is a two- byte binary constant, right-adjusted. 

FF if bound is an expression; bound is a three-byte pointer to a second file statement in 

text . 

7F if the bound is inherited and has an MTF function. 

3F if the bound is inherited and is covered by a previous MTF function. 

FO if the bound is specified by an *. 

•Figure 11. Dimension Table 


9_. D ICTIONARY ENTR IES FOR I NITIAL V ALUES 


The declaration of a variable with an 
INITIAL attribute produces these entries: 

An INITIAL dictionary entry 

and 

One or more dictionary entries for con- 
stants 

and perhaps 

A second File Statement for any iteration 
expression contained in the INITIAL 
specification. 

The INITIAL dictionary entry contains 
pointers to the constant entries and any 
Second File Statements, and is of the 
following format. 

Descri p tion 

1 Code Byte X ' C8' 

2-3 Length of entry 

4 Prefix options byte 

5 INITIAL code byte X '79' 

6 Left parenthesis 

7 onwards INITIAL value list (see 


below) 

Final Right parenthesis 


INITIAL Value List 


The INITIAL value list contains referen- 
ces to Second File Statements and dictiona- 
ry entries which are created to correspond 
to the value in the input text. 

The list contains the following code 
bytes to identify each associated dictiona- 
ry reference: 

X ' FI ' Constant iteration factor. This is 
followed by X’00* and the dictionary 
reference of the constant iteration 
factor. 

X ' F3 ' INITIAL value item. This is fol- 
lowed by X'00' and the dictionary 
reference of the constant. (The BCD 
of the constant is expanded by any 
imposed string replication factor) . 

X'F5' FOB marker. This is followed by 
X'OO' and the dictionary reference 
of the next entry on the chain. 
(This will occur when the scratch 
core storage allocated for building 
the entry is not sufficient, and a 
chain of entries is constructed) . 
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| X ' F7 ' 

I 

I 


Variable iteration factor. This is 
followed by the text reference of 
the Second File Statement containing 
the expression. 
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APPENDIX D: INTERNAL FORMATS OF TEXT 


This appendix describes the internal 
formats of text at various points during 
the compilation of a source program. The 
appendix is organized in the following 
manner: 


1. Text code bytes after read in 

2. Text formats after read in 

3. Text code bytes on entry to the tran- 
slator 

4. Triple formats 

5. Text code bytes in pseudo-code 

6. Text formats in pseudo-code 


7. Text formats in absolute code 

8. Second file statements, and the for- 
mats of compiler functions and pseudo- 
variables 

9. Pseudo-code phase temporary result 
descriptors (TMPDs) 

10. Internal and external Library calling 
sequences 

11. Descriptions of terms and abbrevia- 
tions used in text during a compila- 
tion 

Note: The internal formats of text during 
compile-time processing are described 
in Appenaix J. 
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1. TEXT CODE BYTE AFTER THE READ-IN PHASE 


First Level T abl e 1 00_to_7F2 


0123 4 5 6 7 


"T T T- 

I a I # I 


0 I 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 

B 
C 
D 
E 


BLANK 


DO 

EQUALS 


> 


Cj/P 


ASSIGN 


MULTIPLE 

ASSIGN 


>= 

T < 


REFER 


PSEUDO- 

VARIABLE 


PREFIX - 


+ + 


FUNCTION 


PREFIX + 


SUBSCRIPT 


LITERAL 

CONSTANT 


J. J. 

< Letters > 


I < 

.1 


** 


<-Digits-> 


< Operators- 
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First Level Table (80 to FF) 



8 

9 

A 

B 

c 

D 


E 

F 



r 

- T ~ — 

"T 

_ T - - 

T — 

"T 

- T 

— 

_ T - 

'1 


1 

1 

1 

j HYBRID 

1 

1 

1 


1 


0 

| TO 

( LINE 

|A 

I QUAL 

1 

| SN 

1 


| FL DEC IMAG 



f~— 

4 

4 

“+ 

4 

-4 

-4 

— 

4 

H 


1 

1 

1 

1 

1 

I ASSIGN BY 

1 


1 


1 

| ALLOCATE | 

I CALL 

| ENTRY 

1 

I NAME 

1 


| FL DEC REAL 



J. 

4 — 

"4 

~4 

4 

•4 

-4 

— 

-4- 

H 

2 

j BY 

1 

1 B 

1 

1 

| SL 

1 


) FL BIN IMAG 



|- 

4 

4 

— j. - — 

4 — - — 

4 _ 

- -J 

— 

4_ — 

H 

3 

| FREE 

1 

I RETURN 

IPROC 

1 

| SL 1 

1 


(FL BIN REAL 



h 

4 

4 

— | 

4 

4 



4_ 

H 

4 

(WHILE 

1 

IP 

(CHECK 

1 

| CN 

1 


( FIX DEC IMAG 



I- 

4 

4 

— 4'- - 

4 

4 — 

-4 


4 — 

H 

5 

1 

J DISPLAY | GOOB + 

(BEGIN 

1 

I GET 

1 


(FIX DEC REAL 



I- 

4 

4 

”+ 

4 

4 

4 

— 

4 

H 

6 

| SNAP 

(COL 

|p 

1 

1 

| CL 

1 


(FIX BIN IMAG 



I- 

4 - - 

■4 

_ .j. 

4 — 

■4 

4 

— 

4 - 

-I 

7 

1 

I SIGNAL 

|GO TO 

( ITDO 

(WRITE 

I PUT 

I END 

DO 

(FIX BIN REAL 





4 

4 

" 4 

4 — 

4 

-4 

— 

4 _ - — - 

--I 


1 

1 

1 

| NO 

| 2nd LEVEL | 

1 


1 


8 

| SYSTEM 

( E 

1 

j CHECK 

| MARKER 

1 

| END 

ITDO 

( INTEGER 



l 

4 . 


— -j~ — — 

4- - 

■4 

4 

— 

4 _ — 

H 

9 

| WAIT 

I REVERT 

1 

(DO 

IREAD 

I UNLOCK 

| END 


( STG DEC REAL 



J. 

4 

4 

- 4~ 

4 

4 

4 


4 

--I 


1 

1 

1 

j DATA 

1 

1 

1 


1 


A 

|THEN 

1 F 

1 

| LIST DO | 

1 

1 


1 



\- 

4 

4 

“+ 

4 — 

4 

4 


4 - 

H 

B 

(DELAY 

1 

| INIT LABEL | IF 

| LOCATE 

(REWRITE 

| END 

PROG 

| ON 



|- 


4 

~+ 

4 - — 

4 

4- — 


-4- 



( CONTROL 

1 

1 

1 

1 

1 

1 


| ARRAY 


C 

(VARIABLE! 

1 

SN 2 

1 

1 

1 


(CROSS SECTION | 


Y 

4 _ — 

4 

—4-— 

4 — 

4 — — 

4 

— 

4 

H 

D 

(EXIT 

(NULL 

| DECLARE 

(ELSE 

I DELETE 

IOPEN 

( END 

BLOCK (CHAR CONSTANT! 


|- 

j 

4 _ 

“+ 

4 

4 

4 

— 

-4 — — 

•1 

E 

1 

|c 

|x 

| NO SNAP! 

1 

1 


j SUB 

1 


h 


4 

• 4 

4 

-4 - - 

4- — 

— 

4_ _ — — 

i 

F 

(STOP 

I ASSIGN 

1 

I FORMAT 

1 

| CLOSE 

1 ; 


(BIT CONSTANT 

1 


L 

.X 

-i 

_ X 

x _ 

-X 

_x 


_X 

.j 


+ Go Out Of Block 
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6 


7 


Second Level Table (0 0 to 7 E ) (prec ed ed b y second level mark er by te C8) 


0 1 2 3 4 5 



r 

"T 

1 

p 

T — 

T 

*T 

T 

— 1 

0 

1 

j FILE 

1 

1 

j DECIMAL 

j OPTIONS 

j EXTERNAL 

j AREA 





-j. 

4 

-+— 

i — 

4 

4 

4 _ — 

-H 

1 

1 

1 

1 

1 

| BINARY 

| IRREDUCIELE | INTERNAL 

| POINTER 



I- 

. + 

4 


+ 

+ 

4_ 

4~ 

-H 

2 

1 

j LIST 

1 

1 

j FLOAT 

(REDUCIBLE 

(AUTOMATIC 

| EVENT 



h 

4 

-4 

-+ — 

+ 

4 — _ — 

4 

-4 — — 

-H 

3 

1 

| EDIT 

J EVENT 1 

1 

| FIXED 

(RECURSIVE 

| STATIC 

| TASK 



F 

4 

-+ 


i 

4 

4 

-4- — - - 

— 1 

4 

| TITLE 

j DATA 

1 PRIORITY! 

REAL 

| ABNORMAL 

| CONTROLLED ( CELL 



l 

4 

4 


4 

4 

4 

4 

-H 

5 

1 ATTRIBUTES | STRING 

| REPLY 

1 

| COMPLEX 

| NORMAL 

| SECONDARY 

| BASED 



y 

4 

4 


1 

■4- — — 

4 

4 

-H 

6 

| PAGESIZE 

| SKI 

1 

1 

(PRECISION 1 

| USES 

1 

| OFFSET 



I- 

4 

4 

-+ — 

”4 _ 

+ 

4 --- 

4 

— 1 

7 

| I DENT 

j LINE 

1 

1 

(PRECISION 2 

| SETS 

1 

1 





4_ — 

4 


4 

4 

4 

4 

-H 

8 

j LINESIZE 

| PAGE 

1 

1 

(VARYING 

| ENTRY 

j INITVAR 1 

1 



y 

'4 

4 

-+— 


4- 

4 

■4 

— 1 

9 

1 

| COPY 

1 

1 

j PICTURE (NUM) 

(GENERIC 

| INITIAL 

j INITVAR 

2 | 


y 

4_ _ 

4 


+ 

4 - — — 

4 

4 

-H 

A 

| INTO 

| KEYTO 

i 

1 

(BIT ATTRIBUTE 

| BUILTIN 

( LIKE 

1 



y 

4 

4 


1 

+ 

4 

4- 

■H 

B 

| FROM 

|TASKOP 

1 

1 

(CHAR ATTRIBUTE | 

(DEFINED 

1 



f 

4 

-4 

"I 

+ 

+ 

■4 — 

4 

■H 

C 

| SET 

1 

| IN 

1 

(DIMS (INTEGERS) 

1 

(ALIGNED 

1 





4 

4 


+ 

+ 

4 _ 

4 

■H 

D 

(KEY 

1 

1 

1 

| LABEL 

1 

j PACKED 

1 



y 

4 — 

4 

-+— 

+ 

+ 

4 

4 

H 1 

E 

j NOLOCK 

| KEYFROM 

1 

1 

1 

1 

j PACKED 

1 



y 

4_ — 

4 

~4 

+ - 

+ 

4 

•4- - 

-H 


1 

j FORMAT 


1 

j DIMS 

1 

1 

| PICTURE 


F 

| IGNORE 

j LIS 

1 

| BY 

NAME) (NON- INTEGER) 

| RETURNS 

(POS 

( (CHAR) 



L 

.JL 

-JL 

L 

X 

X 

-J. 

.X 



^The EVENT built-in function 
and pseudo-variable are 
known externally by the 
equivalent name COMPLETION. 
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Second Level Table (80 to IF) 


T T 1 

CONVERSION I CONDITION 


0 I BUFFERED 


MAIN 


OVERFLOW 


UNBUFFERED 


EXCLUSIVE 


REENTRANT 


UNDERFLOW 


STRING- 

RANGE 


NAME 


~ + 


+- 


KEYED 


+- 


+ - 


+■ 


STREAM 


SECONDARY 


ZERODIVIDE 


AREA 


TRANSMIT 


-+■ 


RECORD 


BACKWARDS 


-+ 


TASK 


FIXED 

OVERFLOW 


ENDFILE 


CHECK 


- + 




SEQUENTIAL 


DIRECT 


ON-BLOCK 


SUBSCRIPT 

RANGE 


ON RECORD 


PRINT 


+-~ 


+ ■ 


ENVIRONMENT 


+— 


ERROR 


END PAGE 


■+- 


INPUT 




OUTPUT 


FINISH 


KEY 


NOCHECK 


■ + 


UPDATE 


+— ■ 


4 — 


SIZE 


UNDEFINED 

FILE 


.± 


2. TEXT FORMATS AFTER THE READ- IN PHASE 






1 

BIT 

j ON CONDITION 

1 





l~ 


+ 

-1 

In 

the statement formats in 

this 

sec- 

1 

0 

j OVERFLOW 

1 

tion, the code bytes SN, SL, SL' , 

POS, 

and 

1 

1 

| UNDERFLOW 

1 

OB have 

the following meanings: 



1 

2 

| ZERODIVIDE 

1 





1 

3 

| FIXEDOVERFLOW 

I 





1 

4 

j SUESCRIPTRANGE 

1 

SN 

statement number 



1 

5 

| SIZE 

i 





1 

6 

| CONVERSION 

1 





1 1 

7 

| STRINGRANGE 

1 

SL 

statement label 



i 



j 






The 

abbreviation SQUID means an 

iden- 

SL' 

initial label 



tif ier , 

possibly subscripted and/or 

quali- 


f ied. 


POS following SN is a 2-byte statement 
number 

following SL is a 2-byte dictiona- 
ry reference of statement label or 

entry type 1 PROCEDURE St ateme nt 


OB prefix options byte, specifying ON 
conditions enabled for the state- 
ment as follows: 


The format of a PROCEDURE statement is 
as follows: 
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Byte Num ber De sc ription 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 PROCEDURE 

6 Block level 

7 Block count 

8-10 PROCEDURE-BEGIN chain 

11-13 DECLARE chain 

14-16 ENTRY chain 

17 Left parenthesis - optional 

18... Format parameter list - 

optional 


Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 
Attribute list - optional 
End of statement semicolon 


Attribute code - optional 

Attribute List - optional 

Statement terminating 
semicolon 

B EGIN Stat emen t 

The format of a BEGIN statement is as 
follows : 

By te Nu mber 

1 

2-3 

4 

5 

6 
7 

8-10 
11-13 
14 


Desc ri ption 

Code byte SN or SL 

POS 

OB 

BEGIN 

BLOCK LEVEL 

Block count 

PROCEDURE-BEGIN chain 

DECLARE chain 

Statement terminating 
semicolon 


ENTRY S tatem e nt 


The format of an ENTRY statement is as 
follows : 

Byte Number Descr ipti on 

1 Code byte SN or SL 


2-3 POS 

4 OB 


E ND Sta tement 

The format of an END statement is as 

Desc ri p tion 
Code byte SN or SL 
POS 


follows : 
Byte Number 
1 

2-3 


5 ENTRY 


4 


OB 


6-8 ENTRY chain 

9 Block level 

10 Block count 


5 ENEl , END2 , or END3 - ENDl 

ends a PROCEDURE or BEGIN 
block; END 2 ends an itera- 
tive DO block; END 3 ends a 
non-iterative DO block 


11 

12 


Left parenthesis - optional 

Formal parameter list - 
optional 

Right parenthesis - optional 
Attribute marker - optional 


6 

7 

8 


Block level for the contain- 
ing block 

Block count fcr the contain- 
ing block 

Statement terminating semi- 
colon 
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IF Statement 


Expression 


The format of an IF statement is as 
follows : 


Statement terminating 
semicolon 


Byte Number D esc ription 


1 Code byte SN or SL 

2-3 POS 

4 OB 


5 IF 

6 . . . Expression 

THEN 


Statement or Group 

ELSE - optional 

Statement or Group 
optional 

Note: The semicolon preceding the ELSE has 
been deleted 


DO Statement 

The format of a DO statement is as 


follows : 


Byte Number 

Description 

1 

Code byte SN or SL 

2-3 

POS 

4 

OB 

5 

DO or ITDO 

6 

CV 

7 

BKC 

8. . . 

Squid 

DO equals 

Expression 

TO 

Expression 

BY 

Expression 

WHILE 


ON St atement 


The ON statement takes one of the fol- 
lowing formats: 


1 . 

B yt e N umber 
1 

2-3 

4 

5 

6 

7 

8 


Descri p ti on 

Code byte SN or SL 

POS 

OB 

ON 

ON Condition 
SNAP or NCSNAP 
Statement or block 


2 . 

Byte Numb er D escriptio n 

1 Code byte SN or SL 


2-3 POS 


4 


OB 


5 ON 

6 ON Condition 

7 System 

8 SNAP or NOSNAP 


ASSIGN Statement 


The format 
follows : 

Byte N um ber 

1 

2-3 

4 


of the ASSIGN statement 

De scription 

Code byte SN or SL 

POS 

OB 


is as 


5 ASSIGN or ASSIGN BY NAME 

6 . . . Squid 

Comma - optional, 
may be repeated 
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Squid - optional, 
may be repeated 

Variable number of bytes - 
optional, may be repeated 

ASSIGN 

Expression 

Statement terminating 
semicolon 


WAIT St atement 


The WAIT statement has the following 
format : 

Byte Nu m be r Desc rip tion 

1 Code Byte SN or SL 


4 

5 

6 


POS 

OB 

WAIT 

Left parenthesis 
Identifier 

Left parenthesis - optional 
Expression - optional 
Right parenthesis - optional 
Comma 

Further optional parentheses 
and expressions 

Right parenthesis 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 


CAL L S tatement 


The CALL statement has the following 
format : 

Byte Numbe r D escr iption 


1 


Code byte SN or SL 


2-3 POS 

4 OB 

5 CALL 

6-8 CALL chain 

9 Identifier 

10 Left parenthesis 

11 Expression 

12... Right parenthesis 

Left parenthesis 

Argument List 

Right parenthesis 

Statement terminating 
semicolon 


GO TO S t at e men t 


The format of the GO TO statement is as 
follows : 

Byte Numb er Description 

1 Code byte SN or SL 


2-3 POS 

4 OB 

5 GO TO 

6 . . . Squid 

Statement terminating 
semicolon 


S IGNAL and RE V ERT Sta tements 


The SIGNAL and REVERT statements have 
the following format: 

Byte Nu mber Descri pt i on 

1 Code byte SN or SL 


2-3 POS 


4 OB 

5 SIGNAL or REVERT 

6 ON Condition 
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7 Statement terminating RETURN Statement 

semicolon 

The format of the RETURN statement is as 
follows : 


Byte Number Descri pt ion 

DISPLAY State me nt 1 Code byte SN or SL 




2-3 

POS 

The format 

of the DISPLAY statement is 



as follows: 


4 

OB 



5 

RETURN 

Byte Number 

Description 

6 

Left parenthesis - optional 

1 

Code byte SN or SL 

7. . . 

Expression - optional 

2-3 

POS 


Right parenthesis - options 

4 

OB 


Statement terminating 
semicolon 

5 

DISPLAY 



6 

Left parenthesis 



7. . . 

Expression 

STOP, EXIT, 

and Null Statements 


Right parentnesis 





The format of STOP, EXIT and Null state' 


Left parenthesis - optional 

ments is as 

follows : 


Squid - optional 

Byte Number 

Description 


Right parenthesis - optional 

1 

Code byte SN or SL 


Statement terminating 

2-3 

POS 


semicolon 

4 

OB 



5 

Statement identifier 


DEL AY St atement 6 Statement terminating 

semicolon 

The format of the DELAY statement is as 
follows : 

IN I TIAL La bel D ECLARE Statements 

Byte Nu m ber Descr iption 

1 Code byte SN or SL The format of INITIAL label DECLARE 

statements is as follows: 

2-3 POS 

Byte Number Des criptio n 

4 OB 

1 Code byte SN or SL 

5 DELAY 

2-3 POS 

6 Left parenthesis 

4 OE 

7... Expression 

5 INITIAL Label DECLARE 

Right parenthesis 

6-8 DECLARE chain 

Statement terminating 

semicolon 9... INITIAL label 
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Statement terminating 
semicolon 


Format items are replaced by one-byte 
codes 


DECLARE and AL LO CAT E Statements 

OP EN and CL OSE St a tement s 

The format of DECLARE and ALLOCATE 

statements is as follows: The format of OPEN and CLOSE statements 




follows. 


Byte Number 

Description 

Byte Number 

Description 

1 

Code byte SN or SL 

1 

Code byte SN or SL 

2-3 

POS 

2-3 

POS 

4 

OB 

4 

OB 

5 

DECLARE or ALLOCATE 

5 

OPEN or CLOSE 

00 

l 

vO 

DECLARE chain or ALLOCATE 
chain 

6. . . 

File group list 

9. . . 

Declaration list 


Statement terminating 
semicolon 


Statement terminating 
semicolon 




READ, WRIT E, G ET , PUT, RE WRITE , UNLOCK, and 
DE LET E St a te ments 

FORMAT St atemen ts ' 

The format Of READ, WRITE, GET, PUT, 
The format of the FORMAT- statement is as REWRITE, UNLOCK, and DELETE statements is 


follows : 


as follows : 


Byte Number 

Description 

Byte Number 

Description 

1 

Code byte SN or SL 

1 

Code byte SN or SL 

2-3 

POS 

2-3 

POS 

4 

OB 

4 

OB 

5 

FORMAT 

5 

Statement identifier 

6. . . 

Format list 

6. . . 

Option list 


Statement terminating 
semicolon 


Statement terminating 
semicolon 


380 



3 . TEXT CO DE BYTES ON ENTRY TO THE 
TRANSLATOR "PHASES ' 



0 

1. 

2 

3 

4 

5 


6 

7 



r 

~r - - — 

“T 

r 

T 

"T 

T 

— 

r ~ - 



1 

1 

1 

| COMPILER 

1 

1 

1 


| COMPILER 


0 

|DICT. REF 

. j FILE 

1 

j FUNCTION 

1 

j FILE' 

1 


j FUNCTION ' 



F 

-+ 

-+ 

-+ 

i 

•+ 

+ 

— 

4 _ 

H 

1 

1 

1 

1 

1 

| COMMA 

1 < 

| DO 

EQUALS 

| } 



F 

-+ 

-+ 

"i 

4 

4 

+— 


4 — _ 

H 


1 

1 

1 

| COMPILER 

1 

1 

1 


(COMPILER 


2 

1 

| LIST 

1 

| FUNCTION 

j FCOMMA 

| LIST ' 

1 


(FUNCTION CALL 



1 

1 

1 

1 CALL 

1 

1 

1 


1 



F — - 

“+ 

"+ 

-+ 

--F 

4 

+— 

— 

4 

H 

3 

1 

| EDIT 

(event 

1 

1 < 

| EDIT' 

1 


| 



F 

-+ 

-+ 

■+ 

■+ 

+ 

+— 

— 

■+ 

H 


1 

1 

1 

| COMPILER 

| COMPILER | 

1 


| COMPILER 


4 

| TITLE 

j DATA 

| PRIORITY 

| PSEUDOVAR 

FUNCTION DATA' 

1 


| PSEUDOVAR' 



1 

1 

1 

I 

| COMMA 

1 

1 


1 



F 

i 


"F 

4 

4 

+— 

— 

4 

H 

5 

| ATTRIBUTE 

S| STRING 

(REPLY 

1 

l> 

| STRING' 

1 

< 

I + 



IF 

-+ 

"+ “ 

-+ 

. + 

| 

+— 


4 

H 


j 

1 

1 

1 

| COMPILER | 

1 


1 


6 

|| PAGES! ZE 

| SKIP 

1 

| ERROR 

| ASSIGN 

1 

1 


| NDX 



IF 

-+ 

-+ - ~ 

”F 

4 

| 

+— 


4 

H 


1 

1 

j BUY 

1 

I 

| MULTIPLE | 


1 


7 

1 1 DENT 

| LINE 

j CHAMELEON 

| BUY ASSIGN | ASSIGN 

| ASSIGN 

1 

IV 

A 

( / 



F 

— F 

-+ 


4 

i — 

+— 

— 

4 

H 

8 

f LINESIZE 

j PAGE 


| ARCO 

| DROP 

| TMPD 

| LEFT 

( OF S 



F 



-+ 

-+ 

4 

i 

+ — 

— 

4 _ _ 

H 

9 

1 

| COPY 

1 

1 

1 1 1 

| LD 

1 

1 ~ 

1 * 



F 

-+ 

-+ 

-+ 

4 — 

+ 

+ — 


4 

H 


i 

1 

1 

1 

j BUYB 

1 

1 


1 


A 

| INTO 

| KEYTO 

1 

| PSEUDOVAR 

j CALSEQ 

| TT 

1 


| PSEUDOVAR' 



F 

-+ 

--F 

■+“ — 

4 — 

+ 

+— 

— 

4 

H 



1 

1 

| END 

1 

1 

1 


1 


B 

| FROM 

| TASK 

j LIST MARK 

j LIST MARK 

1 ! 

| JMP 

1 

= 

(PREFIX - 



| 

-+ 

-+ 

-+ 

4 _ - — 

i 

+— 

— 

4 - 

H 

C 

| SET 

| RPL 

| IN 

| FUNCTION 

j CNVA 

| RPL' 

1 


| FUNCTION' 



, 

-+ 

-+ 


+ 

+ 

+— 


4 

H 


1 

1 

1 

| ARGUMENT 

1 

1 

1 


1 


D 

| KEY 

1 

1 

j MARK 

! & 

1 


> 

| PREFIX + 




-+ 

■+ — — ' 

•+ 

+— 

i 

+— 


4 

H 


1 

1 

| DEFINED 

j SUBSCRIPT 

1 

| LITERAL 

| DEFINED 

1 


E 

| NOLOCK 

j KEYFROM 

j SUBSCRIPT 

1 

|CNVB 

| CONSTANT 

j SUBSCRIPT 

j SUBSCRIPT' 




-+ 

-+ 

-+ 

4 

i ~ — 

+ 

— 

4 

-1 


1 

| FORMAT 

1 

I 

1 

| FORMAT 

1 


1 


F 

j IGNORE 

j LIST 

1 

1 

i 1 

j LIST ' 

1 

< 

1 ** 



i. 

_I 

-X 

-X 

X 

X 

X 


-X 

.j 
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8 

9 

A 

B 

C 

D 

E 

F 



r 

“T 

’T 

"T 

"T 

"T - 

T” 

~ T — — 

"1 

0 

| TO 

j LINE 

|A 

1 

j TO ' 

|SN 

1 

1 

1 


I- 

"4 

■+ 

4 — — 

4 

4 

4 — - 

- + 

H 

1 

1 ALLOCATE | 

j CALL 

1 

1 

1 

| CALL' 

j EIO 



h 

-+ 

■+ — — 

4 

4 — 

-4 

-I 

-I 

-j 

2 

| BY 

j PAGE 

1 B 

1 

j BY' 

| SL 

1 

1 



f 

-+ 

4 

4 

4 

4 

-+ 

4- — — 

H 

3 

j FREE 

1 

1 RETURN 1 PROC 

1 

1 

1 

| PROC ' 



h 

■+ 

4 - 

4 

■4 

-4 - — 

“4 — 

- + 

-I 

4 

| WHILE 

j SKIP 

IP 

1 

| WHILE' 

| CN 

i p' 

1 



► 

-+ 

4 

4 

4 

-4 - 

_ + 

-+ 

H 

5 

1 

1 DISPLAY IGOOB 

| BEGIN 

j SORT 

| GET 

1 

| BEGIN' 



f 

■+ 

-+ 

4 

4 

■4 

-+ 

-4 

-■1 

6 

j SNAP 

j COL 

|R 

1 

j SNAP' 

j CL 

1 

1 





-+ 

■4 

“4 

4 

-4 - _ 

4 - - 

-4 — - - 

H 

7 

1 

| SIGNAL 

| GOTO 

| ITDO 

| WRITE 

| PUT 

| END DO 

| ITDO' 



^ 

-+ 

4 

4 

4 

•4 — - 

-+ 

-+ 


8 

j SYSTEM 

j E 

1 

1 

j SYSTEM' 

| E ' 

| END ITDO 

1 



h 

■+“ 

4 

4 _ 

•4 

-4 — 

- + 

“4 

--I 

9 

j WAIT 

j REVERT 

1 

| DO 

j READ 

| UNLOCK 

| END 

j DO' 



f 

4 

4 — 

4 

4 

■4 - 

4 

-+ 

H 

A 

| THEN 

1 F 

1 G 

1 

1 

| F' 

| G ' 

1 



f 

4 


4 

4 

-4 

4 

-4 

-j 

B 

| DELAY 

1 

1 

1 IF 

| LOCATED 

| REWRITE 

| END PROG 

| IF ' OR ON 



I- 

4 

4 

4 

4 

4 

-I 

~4 — 

H 


1 

1 

1 

1 

1 

1 

1 

j ARRAY 

1 

C 

jcv 

1 

| SELL 

| SN2 

jcv' 

1 

1 

I CROSS SECTION! 


J. 

4 — — . 

4 _ _ 

4 

4 

■4 — — 

4 

-+ 

H 

D 

j EXIT 

j NULL 

j BUY 

(ELSE 

| DELETE 

| OPEN 

| END BLOCK 

1 

1 


j. 

"f 

4 _ _ 

4 

+ 

-4 

4 

_ 4 — - 

H 

E 

1 

jc 

|X 

1 NOSNAP 1 

|C' 

| END PROG 

2 | NOSNAP ' 

1 


(■ 

4 


4 

+ 

4 

-+ 

“4 — “ — ■ 

H 

F 

j STOP 

j ASSIGN 

| BUYS 

1 FORMAT 1 

| CLOSE 

1 ; 

j FORMAT 

1 


L 

.1 

.1 

.J._ 

X 

-J. 

_i 

x_ 

.j 
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4. FORMAT OF TRIPLES 


The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two 2-byte 
fields. Each of the two-byte fields may be 
occupied by an operand, which may be a 
dictionary reference, a code byte or code 
bytes, or a numeric parameter. Two zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 

The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 


TRIPLE TYPE 


KEYED 


TITLE 


ATTRIBUTES 


PAGESIZE 


I DENT 


LINESIZE 


INTO 


b 
1 1 
b 

b 

|i 

b 
| ] 
b 

b 
| ] 
b 

\~ 

j FROM 

\- 

j KEY 

b 
| ] 
b 
I 

K 
I 

F 

| EDIT 

I- 

| DATA 

F 

| STRING 

^ 

| SKIP 

h 

| LINE 

f 

| PAGE 

| COPY 

^ 


IGNORE 


FILE 

LIST 


KEYTO 

L 


HEX 

CODE 


03 


04 


05 


06 


07 


08 


0A 


0B 


0D 


OF 


10 


12 


13 


14 


15 


16 


17 


18 


19 


1A 

X X 


. T 1 

FIELD 1 I FIELD 2 


+- 


+• 


+■ 


b 


4 


4 


4 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


4 - 


OPERAND 


OPERAND 


OPERAND 


-J | j MTA 

I I— 
^ I 


^ b 


1 b 


+ ^ 

OPERAND 

X J 


| j TASK 

I I- 


T T 

IB 


RPL 


IN 


Ib 

II 

b 


KEYFROM 


| FORMAT LIST 

I- 


UP 


GIVING 


DOWN 


EVENT 


| PRIORITY 


I b 


REPLY 


BUY CHAMELEON 


b 


| MSA 

J— ■ - 


DEFINED 

UBSCRIP1 


| NULL-FUNCTION 


| COMPILER 
j FUNCTION 


COMPILER 
FUNCTION CALL 


| COMPILER 
| PSEUDO-VARIABLE 

b 


BUY ASSIGN 


ARCO 


PSEUDO-VARIABLE 


FUNCTION 


SUBSCRIPT 


NOP 


I b 
l< 
b 

n 

b 


COMMA 


FUNCTION COMMA 


COMPILER 
FUNCTION COMMA 


| ACT 

F 

| COMPILER ASSIGN 

i x 

♦This triple may 
format lists. 


1C 


ID 


IE 


IF 


20 


21 


22 


23 


24 


25 


27 


28 


+- 


29 


2E 


2F 


4 - 


30 


32 


34 


37 


38 


3A 


3C 


3E 


3F 


41 


42 


44 


45 


4 


4 


+* 


+- 


-b 


OPERAND 1 


+- 


OPERAND 


loperand 2 | 

+ ^ 


OPERAND 


OPERAND 


4 - 


OPERAND 


4 - 


OPERAND 


4 


OPERAND 1 


4 


OPERAND 


OPERAND 


OPERAND 


OPERAND 1 


46 | OPERAND 

X 

have two 


OPERAND 


OPERAND 


OPERAND 




OPERAND j 


4 

OPERAND | 


-I 

OPERAND | 

-I 


1 

OPERAND | 


OPERAND 


4 


OPERAND 2 


OPERAND 2 | 

-I 


4 


OPERAND 


OPERAND 


4 


-I 

OPERAND 2 j 


4 


1 | OPERAND 2 | 

_X J 
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DROP 


ASSIGN 


CONCATENATE 


BUY B 


OR 


AND 


NOT 


LIST' 


EDIT' 


DATA’ 


STRING’ 


STMPD 


MULTIPLE ASSIGN 


TMPD 


JMP 


RPL ’ 


+- 


LITERAL CONSTANT 


FORMAT LIST 1 


UP' 


DO EQUALS 


DOWN’ 


ERROR 


UPSIDE-DOWN 

COMMA 


LESS/EQUAL 


GREATER/EQUAL 


LEFT 


NOT EQUAL 


EQUA] 


GREATER 


DEFINED 

SUBSCRIPT’ 


LESS 


COMPILER 

FUNCTION’ 


48 


47 


49 


+- 


4 A 


+- 


+- 


4B 


4D 


+- 


4F 


52 


53 


54 


55 


56 


+ - 


57 


+- 


58 


+- 


5B 


+- 


5C 


+- 


5E 


5F 


60 


61 


62 


63 


64 


65 


67 


68 


69 


6B 


6D 


6E 


6F 


4 


4 


70 


T 1 

OPERAND 


OPERAND 1 


+- 


OPERAND 1 


+ - 


+- 


OPERAND 1 


OPERAND 1 


+- 


+• 


OPERAND 1 


+ ■ 


OPERAND 1 


+- 


OPERAND 1 


OPERAND 1 


4 - 


■h 


4 - 


OPERAND 1 


OPERAND 1 


4 - 


OPERAND 1 


4 


OPERAND 1 


OPERAND 1 


OPERAND 1 


4 


OPERAND 1 


4 


OPERAND 1 


4 


OPERAND 


OPERAND 1 


OPERAND 


OPERAND 2 


OPERAND 2 


OPERAND 


OPERAND 2 


OPERAND 2 


OPERAND 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 


4 - 


OPERAND 2 


OPERAND 2 


4 - 


OPERAND 2 


OPERAND 2 


4 


OPERAND 2 


4 


OPERAND 2 


4 


OPERAND 2 


4 


OPERAND 2 


4 


OPERAND 2 


COMPILER 
FUNCTION CALL’ 


MINUS 


COMPILER 
PSEUDO-VARIABLE ’ 


PLUS 


DIVIDE 


MULTIPLY 


PSEUDO-VARIABLE' 


PREFIX MINUS 


FUNCTION’ 


PREFIX PLUS 


SUBSCRIPT’ 


EXPONENTIATE 


TO 


ALLOCATE 


BY 


FREE 


WHILE 


SNAP 


DELAY 


CV 


EXIT 


STOP 


LINE 


END ALLOCATE 


PAGE 


SKIP 


DISPLAY 


COLUMN 


SIGNAL 


REVERT 


72 


73 


+- 


74 


75 


77 


+ - 


79 


7A 


7E 


+- 


7C 


+- 


7D 


7E 


+ - 


7F 


80 


4 - 


81 


82 


83 


84 


86 


8B 


8C 


8D 


8F 


90 


91 


92 


94 


95 


96 


97 


98 


99 


9A 


OPERAND 

OPERAND 


+- 


+- 


OPERAND 

OPERAND 


+- 


OPERAND 

OPERAND 

OPERAND 


+- 


+- 


+- 


OPERAND 


+- 


OPERAND 

OPERAND 


4 - 


4 - 


+■ 


4 - 


OPERAND 


4 - 


OPERAND 1 


4 


4 


4 


4 


+— 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 


OPERAND 


4 - 


4 - 


OPERAND 


4 - 


OPERAND 


4 - 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 
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r 

c 

I- 

A 

I- 

CALL 

h 

13 

1- 

RETURN 

I- 

P 

h 

GO OUT OF BLOCK 

^ 

R 

h 

GO TO 

f- 

GOLN 

f 

BUYT 

h 

BUYX 


HSELL 


SELL 


BUY 


BUYS 


PROC 


BEGIN 


ITERATIVE DO 


DO 


IF 


SN2 


NOSNAP 


9E 
AO 
A1 
A2 
A3 
A4 
A5 
A6 
A 7 
A8 


A9 


AA 


AB 


4 


AC 


AD 


AE 


AF 


B3 


B5 


4 


B7 


•f 


B9 


4 


BB 


BC 


BE 


FORMAT 


TO' 


BY' 


| BF 

4 

| CO 


WHILE' 


| C2 

4 

1 C4 


WRITE 

READ 

CV' 


j C7 
■ + 

I C9 

4 

| CC 


4 


+■ 


4 - 




■ 4 " 


+■ 


4 ' 


■ + 


■+“ 


OPERAND 1 


4 






4 


4 


4 


■+ 


OPERAND 
OPERAND 
OPERAND 1 




■ + 




OPERAND 1 


*+ 


■+ 


■ + 


OPERAND 1 


OPERAND 


OPERAND 


■I I 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 


-+- 


OPERAND 


OPERAND 


OPERAND 


+- 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 2 


I I- 


STATEMENT NUMBER 


CLN1 

STATEMENT LABEL 


+- 


CLN2 

COMPILER NUMBER 


GET 

COMPILER LABEL 


PUT 

E* 


UNLOCK 

F' 


REWRITE 

OPEN 


C' 

CLOSE 


CALL' 

P* 


END PROG 
END BLOCK 


END PROG 2 


END I/O 
PROC' 


BEGIN' 

ITERATIVE DO' 


DO' 

IF' OR ON 


PREFMT 


FORMAT 1 


DO 


Dl 


D2 


D3 


+- 


D4 


D5 


D6 


D7 


D8 


D9 


DA 


DE 


DD 


DE 


DF 


El 


E4 


EB 


ED 


EE 


FI 


F3 


F5 


F7 


F9 


FB 


FD 


FF 


OPERAND 1 


+- 


OPERAND 1 


+- 


i* 


+■ 


+■ 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


+- 


OPERAND 


+- 


OPERAND 


+- 


OPERAND 


Appendix D: Internal Formats of Text 


385 



5. 


TEXT CODE BYTES IN PSEUDO-CODE 



0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 



r 

T 

“T 

■ T 

- T 

- T 

T 

'T 

■j — 

- T 

- T 

- T 

— f 

-T 

"T 

- T 

1 

0 

j DC VO 

jOSMl 

j BGPE 

j BLBS 

| LCR 

1 LCDR | LCER 1 LM 

j BCTA 

| LH 

| LA 

| CLI 

| CLC 

| TR 

1 

1 



y 

■+ 



4 

4 

4 

+ 

4 

-+ 

4 

"+ 

•+ 

- j 

4 

4— 


-1 

1 

| DC VI 

| OSM2 

| EOB 

| BLBS' 

| BCR 

| SPM 

| CLR 

| SLA 

| BC 

|CH 

1 CL 

| MV I 

j MVC 

| TRT 

1 

1 



y 

■+ 



4 

4 

4 

■f 

4- — 

4 

4 

"■f 

4 



■+ 

4— 

4 

■1 

2 

| DCV2 

j ALLOC 

jpcc 

| BUYS 

JEER 

| LTR 

| ALR 

1 SLDAI DCF 

| AH 

| AL 

| NI 

| MVN 

| PACK 

1 

1 



y 

■+ 

4 

4 

4 

4 

+— 

4 

4 

■ i 

4 

-f 

■+ 

4 — 

4— 

4 


3 

j DCV3 

j DCA3 

|CHSM 

| PINS 

j HDR 

|LTER| SLR 

1 SLDLl BCTA 

j SH 

| SL 

1 01 

| MVO 

j UNPK 

1 

1 



y 

*+ 

- j 

- *J- 

■ + -" 

- *| 

+ 

4 

4 

” "J" — 

4 


4 

4 

-+ — 


-1 

4 

j DCV4 

IDCA4 

| ADR 

j RWA 

1 BCTR I LTDR 1 

jSLL 

| BCT 

| MH 

| STC 

| SSM 

j MVZ 

1 IGNORE! 

1 



y 

'+ 

- + 

-J-— — - 

4 

-_| 

+ 

4 

4_ _ 

■+ 

-j- 

4 

4 

4 

•+- 


•1 

5 

| DCV 8 

j FREE 

| SN3 

j APRM 

| NR 

j LNR 

| LPR 

| SRA 

|N 

j STH 

| ST 

| TM 

| NC 

1 

1 

1 



y 

■+ 

■ + 

4 

4 

4 

+ 

4 

4 

4 

4 

4 _ 

4 

-+ 

4 — 

4 


|6 

j DROP 

| BUY 

| BCIN 

| USNG 

| OR 

1 LNER 1 LPER | SRDA 1 0 

1 

| EX 

1 

|0C 

| CCNV 

1 

1 



y 

•+ 

4 

4 

4 

4 

| 

4 

4 

4 

4 

■i 

■+ 

■ + 

4— 

4 


7 

j EQU 

j SELL 

1 STOP 

| EDIT 

| XR 

1 LNDR 1 LPDR | SRDL 1 X 

| STD 

| STE 

| LA' 

JXC 

| CONV ' 

1 

1 



y 

■+ 

"+ 

"j - — — — — — 

4 

-*j 

+ 

4 

1 

4 

4 

- + 

4 

4 

4— 



8 

| PROC 

| PROC * 

| BGNP 

| FMT 

| LR 

| LDR 

| LER 

| SRL 

|L 

j LD 

| LE 

j DCF 2 

| ZAP 

| USSL 

1 

1 



1 

1 

1 

| LST 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

I 



y 

■+ 

-+ 

+ — 

4 


| 

4 


4 

4 

- + 


4 

4— 


-1 

9 

1 BEGINI BEGIN 

| BGNP ' 

| FMT 

| CR 

| CDR 

| CER 

| STM 

|c 

j CD 

| CE 

| BCT' 

|CP 

| DR PL 

1 

1 



y 

•+ 

“+ 

4 

4 

4 

+ 

4 


4 

4 

4 

4 

4 

4— 

4 


|A 

j PASS 

| ADV 

| DROB ' 

| FMT ' 

j AR 

| ADR 

j AER 

| BXH 

|A 

j AD 

| AE 

1 

| AP 

| CNVA 

1 

1 


y 

'+ 

” -j- — — — — — 

■ -j — — - 

4 

4 

+ 

4 

4 

4- — 

4 

4 

4 

+ 

4— 

4 

-1 

B 

| EOP 

j PLBS 

j PLBS' 

j EDIT' 

| SR 

| SDR 

| SER 

1 BXLEI S 

| SD 

| SE 

1 

| SP 

| SINL 

1 

1 



y 

“i 

"+ 

+ 

4 

4 

+ 

4 

4 

4 

4 

4 

4 

"f 

4— 

4 


C 

| EOP 2 

jPCBS 

| PSLD 

1 ERROR 1 MR 

| MDR 

j MER 

j SL1 

j M 

J MD 

| ME 

| SN2 

| MP 

| CNVC1 

1 

| IGN2 



1 - 

*+ 

-+ 

4 

4 

4 

+ 

4 

i - — 

4 

4 

- + 

4 

i 

4- 

4 


c 

j IPRM 

| IPRM' 

| ABS 

| PFMT 

j DR 

| DDR 

| DER 

| SN 

ID 

(DD 

| DE 

| 0SM3 

j DP 

| CNVC2 

1 

1 IGN4 1 


y 

■+ — 

■ + 

+ 

4 

4 

"j — — — 

4 

4 _ 

"+ 

4 

4 _ 

■+ 


4— 

4 


E 

j EPRM 

| EPRM ' 

| ABS ' 

1 

jsvc 

j AWR 

| AUR 

|CL1 

|IC 

| AW 

| AU 

| EQU' 

| ED 

| CNVC3 

1 

| IGN5 1 


y 

+ 

4 

+ 

| 

4 

+ 

| 

1 

4 

4 

■+ 

4 

+ 

4- 

4 

-1 

F 

j ITDO 

| ITDO ' 

1 ALIGN! 

1 BALR | SWR 

| SUR 

ICN 

| BAL 

| CVB 

| CVD 

| BSW 

1 EDMK 1 CNVC4 

1 

j IGN 8 

1 


L 

X 

-X 

X 

.X 

.X 

J 

.J 

X 

.X 

.X 

-X 

.X 

X 

X 

.X 

j 


6. TEXT FORMATS I N PSEUDO-CODE 


Pseudo-code Design 


Pseudo-code is essentially a symbolic 
representation of machine code, designed in 
such a way that it is possible to directly 
transform it into executable machine code 
by an assembly process. 


A unit consists of a one-byte operation 
code followed by, normally, a two or four- 
byte field and on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 


By having most units either three or 
five bytes long, the scanning of pseudo- 
code is a fairly straightforward process. 


The format of the various pseudo-code 
units is as follows: 

Three- byte un i t : this consists of a 

one-byte operation code followed by a 
two-byte literal offset, and it appears 
immediately after the symbolic 
representation of the instruction to 
which if refers. 


Five-byte unit : there are four basic 

five-byte units which have the follow- 
ing formats. 

Bytes 

12 2 

r t t 1 

| OP I 1 I R2 | 

I I HI | { 

| CODE | 0 | DICT REF | 

L X X J 
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Bytes 


Bytes 


OP 

T" 

1 

1 


R3 

— T“ 
1 

1 

OFFSET 

CODE 

1 

_X_ 

— 

— 

1 

X_ 


1 



2 


2 

OP 

— 1 

1 

1 


Rl 

— 1 

1 

1 

R2 

CODE 

1 

_x_ 



1 

x_ 


OP 

1 

1 

1 

1 

HEX 

— 1 

1 

1 

R2 

CODE 

1 

_x_ 

0 


1 

__ 1 _ 

DICT RFF 


Using these units with, if necessary, a 
three-byte unit, it is possible to symboli- 
cally represent any possible RR, RX, RS or 
SI instruction. 


Variable length unit : the format of 

this is: 

Bytes 

1 2 

r t t 1 

I OP I | | 

j | FLAG | VARIABLE j 

| CODE | j j 

L X X J 


With a specially designed variable field 
described by a two-byte flag, it is possi- 
ble to represent any SS instruction with 
this unit. 

The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 


L Rl, JOE+24 

Bytes 

12 2 

r T T T 

| L j 0 Rl j DR (JOE) | 

L X X J 

r t 1 

| OShl I 24 I 

L X J 

L Rl , JOE (R3 ) 

Bytes 

1 2 2 

r T T 1 

| L J 0 Rl | DR (JOE) | 

L X X J 

r t 1 

| OS M2 I R3 I 

L X j 

L Rl, JOE+24 (R3) 

Bytes 

1 2 2 

r T T T 

j L | 0 Rl j DR (JOE) j 

L X X J 

r T T 1 

| 0SK3 j 24 j R3 | 

L X X J 


Alternatively, JOE might be a base reg- 
ister in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 


Bytes 


L R1,0(R3,R2) 

12 2 

r t t 1 

j L | 1 Rl j R2 j 

L X X J 

r t 1 

| OS M2 I R3 j 

L_ x j 


RX Instructions 


The following examples illustrate the 
basic forms of an RX instruction and the 
way in which they are represented in 
pseudo-code. 


When a branch instruction is generated 
which branches to a compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an ECU value. 


L Rl , JOE 


Bytes 


r 

I L 

L 


Rl 


DR (JOE) 


Bytes 

1 


BC 


J 01 


1 

HEX 


T 1 

| EQU VALUEj 
.X J 
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Bytes 

1 1 1 
r t t 

I I 1 I 

| BC | 0 | HEX 

I I 0 | 

l X JL 


2 


T 1 

I *2 I 

h -1 

| DICT REF j 

X J 


SI Ins truc tions 


The following examples illustrate the 
basic forms of an SI instruction and the 
way in which they are represented in 
pseudo-code : 


RS In s truction s 


The following examples illustrate the 
basic forms of an RS instruction and the 
way in which they are represented in 
pseudo-code : 

BXH R1,R2, ALPHA 

Bytes 

12 2 

p T T 1 

| BXH | 0 R1 | DR (ALPHA) | 

L X J. J 

r T 1 

| 0SM2 | R2 | 

L X J 

BXH Rl , R2 , ALPHA+24 

Bytes 

' 1 2 2 

r t t 1 

| BXH | 0 Rl j DR (ALPHA) | 

L X X J 

r t t 1 

j OSM3 I 24 I R2 I 

L X JL J 

Alternatively, ALPHA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register as in the RX instruction. 


CLI EETA , X ' FF ' 

Bytes 

1 2 2 


r t 

1 CLI | 

L X 

0 

FF 

T 

1 

X_ 

DR (BETA) 

CLI BETA+4, 

Bytes 

1 

X * FF ' 

2 


2 

1 T 

1 CLI | 

L X_ 

0 

FF 

T 

1 

X_ 

DR (BETA) 


r T 1 

| OSR1 | 4 I 

L X J 


Alternatively, BETA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register . 


SS Instru c tions 


Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is neces- 
sary to represent an SS instruction with a 
variable length field, the length of which 
is specified in the second of two flag 
bytes immediately following the operation 
code . 


SLA Rl , 6 

Bytes 

1 2 2 

r T T 1 

j SLA j Rl | 6 j 

L X X J 


This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the items in the 
guise of pseudo-code. 


Va ri able L en gt h Ite m FLAG 


RR Instructions 


The following example illustrates the 
form of an RR instruction and the way in 
which it is represented in pseudo-code. 

AR Rl , R2 

Bytes 

12 2 

r t t 1 

| AR | Rl | R2 I 

L X X_ J 


The first bit of the FLAG indicates 
whether or not the unit represents a 
machine instruction. In the former case, 
the format of the instruction is: 

Bytes 

11 1 12 22 2 

r T T T T T T T 1 

I OP I I I I I I I I 

| | FLAG | LENGTH j FI | F2 | F3 j F4 | F5 j 

| CODE | | I I I I I I 

L X X X X X X X J 
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The format of the FLAG is: 


ZAP ALPHA+3 (14 ) , BETA (6) 


Bytes 


Always zero 

F2=dict. ref. F2=sym reg. 
F3=dict. ref. F3=sym reg. 
F4 not present F4 present 


r T T T T 1 

| ZAP i X * 10 'I 10 I 13 5 j DR (ALPHA) I 

L X X X X J 


r T 1 

| DR (BETA) j 3 j 

I — X J 


F5 not present F5 present 


6-8 Not used 


The FI field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The F4 
and F5 fields contain literal offsets. 


Bytes 


ALPHA ( 6 ) , BE1A+11 


r T T ~ T T 1 

| MVC | X ' 0 8 ' j 10 j 5 j DR (ALPHA) j 

L X X X X J 


r T 1 

j DR (BETA) j 11 | 

L X J 


Bytes 


ALPHA+3 (14) , EETA+11 ( 6 ) 


Compi l er Functio n P it 1=1) 


r T T T T 1 

j AP | X * 1 8 ' j 12 j 13 5 j DR (ALPHA) j 

L X X X X J 


In compiler functions, the format of the 
FLAG depends on the operation code. Thus: 


r T T T T 1 

j CONV | FLAG | LENGTH j FI | F2 j 

L X X X X J 


The format of the FLAG is: 


Both Zero 


Both One 


r t t 1 

| DR (BETA) j 3 j 11 | 

L X X J 


Alternatively, ALPHA and/cr BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 


1 Always one 

2 and 3 Fl=dict. ref. F1=TMPD operand 
4 and 5 F2=dict. ref. F2=TMPD operand 
6-8 Not used 

The FLAG in the IGNORE item does not 
contain any information. 

The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 


Bytes 


MVO ALPHA ( 14 ) , 11(6, Rl) 


r T T T T 1 

| MVO J X ' 2 8 * j 10 | 13 5 J DR (ALPHA) | 

L x X X X J 


- T 1 

I HI 

-X J 


MVC ALPHA (7 ), BETA 


Bytes 


Pseudo- code Format between IERJRA and IEMRF 


r T T T T 1 

j MVC j X' 00' | 8 j 6 j DR (ALPHA) | 

l X X X X J 


r 1 

| DR (BETA) | 

L J 


Fields that may hold a dictionary ref- 
erence or register number have, at this 
time, the possibility of holding a literal 
offset. The presence of an offset is 
indicated by the first bit of the field 
being set to one, and earlier flags being 
set to 'register.' 
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7. 


TEXT FOR MATS IN ABSOLUTE CODE 


Where a standard set of assigned reg- 
isters is to be used for a section of code, 
e.g. in the construction of prologues, or 
during the generation of addressing 
instructions, it is possible to generate 
instructions with registers in absolute 
code, instead of the normal pseudo-code 
two-byte symbolic registers. (See "Text 
Formats in Pseudo-Code" in this Appendix.) 

Sections of absolute code are preceded 
by ABS markers and followed by ABS' mark- 
ers. The operation codes are the same as 
the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix) , but the instruction formats dif- 
fer, as shown in the following examples: 


RR Instructions 


Bytes 

1 1 

r ; r 1 

j OP CODE j R1 R2 j 

L J. J 


RX Ins t ruction s 


Bytes 

1 11 

f T T 1 

j OP CODE j R1 X2 | B2 j 

L X 1 J 

2 12 

r T T 1 

j DICT REFCE j OSM2 j OFFSET j 

l X X J 


SS Instructions 


Bytes 

1 11 2 
r T T T 1 

j OP CODE I LENGTH | Bl | DICT REFCE | 

L X X X J 

12 12 

r T T T 1 

| B2 I DICT REFCE | 0SM1 | OFFSET | 

L X X X J 

1 2 

r t 1 

| OSM2 j OFFSET j 

l X J 


RS In s tr uctions 


Shift Instructions 
Bytes 

112 

r T T 1 

j OP CODE j R1 0 I OFFSET j 

L X X J 

Other Instructions 
Bytes 

1 11 

r t t 1 

| OP CODE j R1 R2 I B2 | 

L X X J 

2 12 

r T T 1 

I DICT REFCE | 0SM2 j OFFSET | 

L X X J 


SI Ins truct ion s 


Bytes 

1 112 

r T T T 1 

| OP CODE j MASK | Bl j DICT REFCE | 

L X X X J 

1 2 

r T 1 

| OSM2 j OFFSET | 

L X J 

Note that the OSM1/OSM2 markers and their 
following offsets are all optional; note 
also that the OSM2 byte does not have a 
register following it, as in normal pseudo- 
code, but a literal offset. 

The first bit (bit 0) of the byte 
containing the base is used as a flag. If 
this bit is a one, the following two bytes 
contain, in their low order position, a 
twelve bit offset, instead of a dictionary 
reference . 

After Phases RA and RF all instructions 
in the text will be in absolute code. 


SN SECOND FI LE ST ATEMENTS, AND T HE F ORMATS 

OF CO MPILER FU NCT IONS AND PSEUDO -VAR IABLES 


Se cond F ile State m ent s 


Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 
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with array bounds, string lengths, 
DEFINING, and INITIAL value iteration fac- 
tors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered in 
the dictionary, and their dictionary ref- 
erences are to a region in the communi- 
cations area. The pseudo-code physical 
phase dealing with each particular function 
generates in-line code instead of a func- 
tion reference. 

All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 

The statements generated have the fol- 
lowing overall format: 


11 Code byte X'5E' 

12 Code byte X'OO* 

13 Code byte X'OO' for lower 

bound, X'01' for higher 
bound 

14 Number of the dimension 

whose bound is referenced 

15 Right parenthesis 

16 Triple operator code X'46' 

17... Expression for bounds 

Statement terminating semi- 
colon 


Byte N u mber Descripti on 


1 

Code byte SN2 

Multiplier 

Function 


2-3 

Dictionary reference 






Multiplier function statements are 

used 

4 

Options byte 

to denote copying of a section of one 

dope 



vector into 

another. The format is: 


5 

Statement type markers 

Byte Number 

Description 


6 onwards 

Statement body 






1 

Assignment statement marker 

The dictionary reference is the ref- 




erence of a 

second file dictionary entry. 

2 

Code byte X'00' 


This is described in Appendix C. The 




options byte 

is that for the options opera- 

3-4 

MTF code bytes x'0010' 


tive in a prologue, i.e. no interruptions 




are accepted. 


5 

Compiler call marker 




6 

Left parenthesis 




7 

Code byte X'00' 


Array Bounds 


8-9 

Dictionary reference 1 


The format 

of the second file statement 

10 

Triple operator code 

byte 

for array bounds is as follows: 


X* 44' 


Byte Number 

Description 

11 

Code byte X'00' 


1 

Assignment statement marker 

12-13 

Dictionary reference 2 


2 

Code Byte X'OO* 

14 

Triple operator code 
X' 44' 

byte 

3-4 

ADV code X' 0002 ' 

15 

Code byte X'5E' 


5 

Compiler pseudo-variable 

16 

Code byte X'00' 


6 

Left parenthesis 





17-18 

Offset 1 


7 

Code byte X'OO' 

19 

Triple operator code 

byte 

8-9 

Dictionary reference of 


X' 44* 



array 

20 

Code byte X'5E' 


10 

Triple operator code byte 

X ' 44 ' 

21 

Code byte X'00' 
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22-23 

Offset 2 

24 

Triple operator code byte 
X ' 44 ' 

25 

Code byte X'5E' 

26 

Code byte X'OO* 

27-28 

Length 

29 

Right parenthesis 

30 

Statement terminating semi- 
colon 

This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at dic- 
tionary reference 2, starting at an offset 
of offset 2, to the dope vector of the item 
at dictionary reference 1, starting at an 
offset of offset 1. 

String Length 

statement 

The string length statement is used to 
initialize the maximum length slot in a 
string dope vector. The format is: 

Byte Number 

Description 

1 

Assignment statement marker 

2 

Code byte X'OO' 

3-4 

SDV code X' 0004 ' 

5 

Compiler pseudo-variable 

6 

Left parenthesis 

7 

Code byte X'00' 

8-9 

Dictionary reference 

10 

Right parenthesis 

11 

Triple operator Code X'46' 

12. . . 

Expression 


Statement termination semi- 
colon 

The dictionary reference is that of the 
item whose dope vector is being initial- 
ized. If the expression is defining the 
length of a string being returned by an 


internal function, then the dictionary ref- 
erence is that of the entry type 2 belong- 
ing to the label. In Figure 6 the ref- 
erence is to B or C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
statement, or an ENTRY attribute. If the 


item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 


INITIAL value statements 


INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows: 

B yte N um be r Desc ription 

1 Assignment statement marker 


2 Code byte X'OO* 


3-4 IDV code 


5 Compiler pseudo-variable 


6 Left parenthesis 


7 Code byte X'OO' 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code X'46' 

12... Expression 

Statement terminating semi- 
colon 

The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type, and for this variable, that have been 
generated before this one. 


I S econd Fil e State me nt s for BA S ED and OFFSET 


| A statement is generated for a variable 
(which is declared BASED with its associated 
j pointer given, and for a variable which is 
jan OFFSET with its associated base given. 
(The format of the statement is similar to 
(that of the INITIAL value statement except: 
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I Byte Number Desc r iption 

| 3-4 PEXP code (BASED) X'0016' or 

| BVEXP code (OFFSET) X'0017' 

| 12 Expression (which must be a 

j single dictionary reference 

j of the associated pointer or 

| base) 

| The dictionary reference in bytes 8-9 is 

I that of the BASED or OFFSET variable. 


Second File Statement s f or DE FINED 


Second file statements are generated 
when an expression is associated with 
DEFINED , but the expression does not con- 
tain any iSUBs. The format is: 

Byte N um ber Description 

1 Compiler assignment state- 
ment marker 

2 Code byte X'OO' 

3-4 ADF code; 

X'OOll' for base only 

X'0012' for subscripted base 
X'0013* foi: base with iSUB's 

5 Pseudo-variable marker 

6 Left parenthesis 
Base7and subscript list 

Right parenthesis 

Statement terminating semicolon 


9. PSEUDO-CODE PHASE TEMPOR ARY RE SUL T 
DES CR IP TO RS (TMPD)' 


Temporary Desc ri ption Stac k 


All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes. A maximum of 
200 items is allowed. 

Byte 1 Flag 1 describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 

this byte are also used 
during the release of 
temporary results 

Byte 2 Code 2 describes the radix. 


scale, mode, string type 
etc. of the temporary 
result. The format of 
this byte is identical to 
the similar byte in the 
dictionary and the DED 
used by the Library sub- 
routines. routines. 
(See "Data Byte" in 
Appendix C . ) 


Bytes 3-4 P,Q describes the precision 

and scaling of arithmetic 
type results 

Bytes 5-6 BASE in one of the following 
forms : 

1. "Reg by value" reg- 
ister containing the 
result - no index or 
offset is allowed. 

2. "Reg by value" reg- 
ister containing the 
base address of the 
result stack 

3. Offset from beginning 
of current temporary 
storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 

Byte 7-8 NDX in one of the following 

forms : 

1. Symbolic indexing reg- 
ister for EASE type 2 
and 4 . 

2. The number of bytes 
required in the tem- 
porary core stack for 
BASE type 1 

Bytes 9-10 OFS which is a literal offset 
to be inserted in the 
base address. When used 
with EASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 

Strings are described in the following 

ways : 

If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 
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If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry. 

If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 

If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference IN BASE. 
The dictionary entry describes the 
location of the string which may be 
either the temporary area offset and 
size for the first type, or a BUY 
statement for the second type. 


The 'top* of the stack is indicated by 
two pointers: PSTK and LSTK . PSTK points 
to the 'physical' top of the stack, which 
is the last item added. LSTK points to the 
'logical' top of the stack, which is the 
next item to be released. The difference 
is necessary because the temporary storage 
stack may not be released in the same order 
as the description stack. When an item in 
the description stack is released, the 
corresponding temporary storage may not be 
at the top of the stack storage. As the 
storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. When the corresponding 
temporary core is released from the top of 
the storage stack, the description is com- 
pletely removed from the 'physical' stack. 


T T 

Whether F7 
applicable 


FLAG 


F5 


+- 


F6 


Comments 


X'OO' 

X' 02' 

X ' 04 ' 

X ' 05 * 

X' 20 ' 

X' 41* 

X' 49 ' 

X ' 8 0 ' 
X'CO' 

X'Cl' 

X ' C5 ' 


Dictionary 

reference 

Dictionary 

reference 

Dictionary 

reference 

Dictionary 

reference 1 

Dictionary 

reference 

Symbolic 

register 

Symbolic 

register 

Register 

Workspace 

offset 

Workspace 

offset 

Workspace 

offset 


Dictionary 

reference 2 

Index 

register 

Dictionary 

reference 

Dictionary 

reference 


Dictionary 

reference 

Dictionary 

reference 


Yes 

No 

NO 

NO 

Yes 

Yes 

Yes 

No 

Yes 

Yes 

No 


STRUT2 output — must SELL dictionary ref. 
REPEAT function result. 

SUBSTR function result. 

Arithmetic subscript, or SDV for varying 
string subscript. 

Non-ad justable fixed string subscript, with 
DROP in STRUT2 . 

Non-ad justable fixed string subscript, without 
DROP in STRUT2 . 

Item in register -- F7 cannot exist. 

SDV for adjustable fixed string subscript. 
SUBSTR pseudo- variable result. 


Note s 1. Since F6 cannot be used for both an index register and a dictionary 
reference, bits 2 and 7 of the FLAG byte cannot both be 1. 

2. Many other bit configurations in the FLAG byte are meaningful and could 
be used for future applications. 


Figure 12. Temporary Descriptions in Pseudo-Code — Use of TMPD Triple Fields F5 and F6 
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Temporary Descriptions in Pseudo-Code 


Descriptions are passed between pseudo- 
code phases using two or three TMPD 
triples, with the following formats: 

r t — ' — t t t n 

j TMPD I FLAG I F2 j F3 j F4 j 

J. -j- X -j- ± -| 

| TMPD I F5 I F6 j 

[ +— + -I 

| TMPD | F7 | | 

L X X J 


1. FLAG describes 
F6, and F7. 


the use of fields F5, 


Bit 


Number 

Value 

Meaning 

0 and 1 

00 

F5 contains a dictiona- 
ry reference 


11 

F5 contains a temporary 
workspace offset 


01 

F5 contains symbolic 
register with address 
of item 


10 

F5 contains register 

with value of item 

2 

0 

F6 does not contain 

index register 


1 

F6 contains index reg- 
ister 

3 

0 

Two TMPD triples are 
used 


1 

Three TMPD triples are 
used, and F7 contains 
an offset 

4 

0 

Normal setting. String 


utility STRUT 2 drops 
symbolic register in F5 
if used for input 

1 String utility STRUT2 

does not drop symbolic 
register 

0 Normal setting 

1 Result of an invocation 
of SUBSTR or REPEAT 

0 No SELL is required 

1 User of this descrip- 
tion must SELL dic- 
tionary reference in 
F5. Set by string 
utilities for adjusta- 
ble string result 

0 F6 does not contain a 
dictionary reference 

1 F6 contains a dictiona- 
ry reference 


CODE contains 
(describing type, 
etc. ) 


the data byte 
radix, scale, mode. 


3. F3 and F4 contain: 

a. Precision and scale factor 
coded arithmetic type data 


of 


b. String length for coded non- 
adjustable strings (maximum length 
for varying strings) 

c. Picture dictionary reference for 
data with picture 


4. F5 and F6 are at present used as shown 
| in Figure 12. 


5. F7 can be used by adding X'10' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 12). 


10. L IBRARY CAL LING SEQ UEN CES 


Intern al libr ary rou tines are used for 

such things as data type conversion, where 
there is no explicit reference to the 
routine in the PL/I source program. The 
arguments are handed to the routines in 
registers. In pseudo-code form, assigned 
registers are used, and special markers, 
IPRM and IPRM* are used to indicate the 
calling sequence to the register allocator 
phase. Internal library calls appear in 
pseudo-code as: 

IPRM 

L 1, (ARGUMENT 1) 

L 2, (ARGUMENT 2) 


L 15, IBE (ROUTINE NAME) 

BALR14, 15 
IPRM' 


| The second byte of the IPRM item is used 
(as a flag byte. The settings are as 
| follows : 


| Bit 0 Must be zero 


Bit 1 


END, or RETURN statement net 
in BEGIN block calling 
sequence 


Bit 2 END statement calling 

sequence 
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External li b rary routines calls corres- 
pond to explicit references to functions or 
I/O statements in the PL/I source program:. 
The arguments to the routines are placed in 
workspace, and register 1 is set to point 
to the first argument. For pseudo-code 
form the calling sequence is preceded by an 
EPRM marker and followed by an EPRM' mark- 
er. Thus, the library calling sequence 
appears as: 


MVC 


WSP (N) , (ARGUMENT 1) 


EPRM 

LA 1 , WSP 
L 15, IHE- 
BALR 14, 15 
EPRM' 


(ROUTINE NAME) 


The second byte of the EPRM is used as a 
flag byte. 

The setting is as follows: 

Bit 0 A calling sequence to a PL/I 

procedure 


11. DESCRIPTIONS OF TERMS AND ABBREVIATIONS 
USED IN TEXT DURING A COMPILATION 


The table in this section gives first, 
the phase in which the term is used? and 
third, a brief description of the meaning 
of the term or abbreviation. 


The phase in which the term or abbrevia- 
tion is used is given in the second column 
of the table. The key to the code used is: 


R After the Read-In Phase 
PS During the Pseudo-Code Phase 

T A triple or translator input 

code byte 


Term or 
Abbreviation 


Used In 

Phase Description 


A R , T 

ABS PS 

ABS ' PS 

| ADI PS 


Character string for- 
mat item 

Indicates the start 
of absolute code 
(Appendix D7) 

Indicates the end of 
absolute code 

Addressing 

instruction (used 


ADR PS 

ADV PS 


ALIGN PS 

ALLOCATE R,T,PS 

APRM PS 

ARCO T , PS 

j AREA R 

ARGUMENT MARK R 

ARRAY CROSS R,T 
SECTION 

ASSIGN R,T 

ASSIGN BYNAME R 

ATTRIBUTES R , T 


between phases RA and 
RF) 

The two byte operand 
contains a register 
for use by final 
assembly for address- 
ing branch destina- 
tions beyond 4096 
bytes from the pro- 
gram base 

Used in 2nd file 
assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject cf the second 
file statement 

Indicates that 4 byte 
alignment is required 
in the code at this 
point 

Replaces the keyword 
ALLOCATE 

Indicates the library 
calling sequence for 
VDA or controlled 
storage 

Provides space to 
allow insertion of 
argument conversion 
triple 

Replaces keyword AREA 

Marker used by phases 
GK and GP to indicate 
he start of a func- 
tion argument 

Replaces the PL/I 
used to specify an 
array cross section 

Marker which precedes 
an assignment state- 
ment 

Precedes an assign- 
ment statement with 
the BY NAME option 

Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been 
specified on an OPEN 
or CLOSE statement 
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AUTOMATIC 

R 

Replaces the keyword 

BUYB 

T 

Triple or code byte 



AUTOMATIC 



which indicates that 
a scalar temporary is 
required for an 

B 

R # T 

Bit string format 



aggregate argument to 



item 



a generic scalar 

built in function 

BACKWARDS 

R 

Replaces keyword 

BACKWARDS BEGIN 

BUY CHAMELEON 

T 

Marker which indi- 

cates that workspace 

BASED 

R 

Replaces keyword 



is required for a 



BASED 



temporary variable of 
chameleon data type 

BEGIN' 

T , PS 

Triple which termi- 



i.e. the data type 



nates the BEGIN block 



is taken from the 



triples 



expression assigned 

to the variable 

BGPE 

PS 

Indicates the end of 
the complete prologue 

BUYS 

T, PS 

Code byte or triple 



for a begin block 



which indicates that 
a temporary variable 

BGNP 

PS 

Indicates the start 



is required, and that 



of code for a BEGIN 



initialization code 



block with no prolo- 



exists between this 



gue 



triple and the BUY 
triple 

BGNP ' 

PS 

Indicates the end of 
code for a begin 

BY 

R, T 

Replaces the keyword 



block with no prolo- 
gue 



BY 




BY' 

T 

Triple which indi- 

BIT ATTRIBUTE 

R 

Replaces the keyword 



cates the end of a BY 



BIT 



expression 

BIT CONST 

R 

Marker preceding a 

BY NAME 

R 

Replaces the keyword 



BIT string constant 



BY ’ NAME 

BINARY 

R 

Replaces the keyword 

C 

R, T 

Complex decimal for- 



BINARY 



mat item 

BI.BS 

PS 

Indicates the start 

C' 

T 

Triple which indi- 



of the prologue for a 



cates the end of a C 



BEGIN block 



format item 

BLBS ' 

PS 

Indicates the end of 
the prologue for a 

CALL 

R,T 

CALL statement marker 



BEGIN block 

CALL' 

T 

Triple internal to 

phase IA which marks 

BUFFERED 

R 

Replaces keyword BUF- 



the end of a CALL 



FERED 



statement 

BUILTIN 

R 

Replaces the keyword 

j CELL 

R 

Replaces the keyword 



BUILTIN 

I 


CELL 

BUY 

T, PS 

Code byte or triple 

CHAR 

R 

Replaces the keyword 



which indicates that 
a temporary variable 

ATTRIBUTE 


CHARACTER 



is required 

CHAR CONSTANT 

R 

Marker preceding a 

character string con- 

BUY 

T 

Triple which indi- 



stant 

ASSIGNMENT 


cates assignment to a 






temporary variable. 

CHECK 

K 

Replaces the keyword 



and which implies 



CHECK 



that the workspace 
for the temporary 

CHSM 

PS 

A special offset 



variable must be 



marker. Used only in 



obtained before the 



absolute code to 



assignment 



indicate that the 
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I 


offset may require COMPILER T 

changing PSEUDO-VARIABLE' 


CL R,T,PS 

CLN1 T 

CLN2 T 

CLOSE R , T 

CN R,T,PS 

CNVC1 , — 4 PS 


COL R,T 

COMPLEX R 

COMPILER T 

ASSIGN 

COMPILER T 

FUNCTION 

COMPILER T 


FUNCTION' 


COMPILER T 

FUNCTION CALL 


COMPILER T 

FUNCTION CALL' 


COMPILER T 

FUNCTION COMMA 


Compiler label marker 

Compiler label number 
triple, referred to 
once only in the cur- 
rent statement 

Compiler label number 
triple, referred to 
at any point 

Replaces the keyword 
CLOSE 

Compiler statement 
number. Can precede 
compiler inserted 
statements 

Convert compiler 

functions 

l=Drop all registers 
2=Drcp target reg- 
ister 

3=Drop source reg- 
ister 

4=Do not drop reg- 
ister 

Replaces the keyword 
COLUMN 

Replaces the keyword 
COMPLEX 

Code byte or triple 
indicating assignment 

Code byte or triple 
used to indicate the 
start of a compiler 
function call argu- 
ment list 

Triple indicating the 
end of a compiler 
function argument 

list 

Code byte or triple 
used to indicate the 
start of a compiler 
function call argu- 
ment list 

Triple indicating the 
end of a compiler 
function call argu- 
ment list 

Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo- Variable 


COMPILER T 

PSEUDO-VARIABLE 


CONDITION R 

CONTROLLED R 

CONTROL R, T 

VARIABLE 

CONVERSION R 

COPY R, T 

CONTROL T 

VARIABLE' 

DATA R, T 

DATA' T 


| DATA LIST DO R 

I 

I 

DCF2 PS 


DECIMAL R 

DECLARE R 

DEFINED R 

DEFINED T 

SUBSCRIPT 

DELAY R , T 

DELETE R, T 


Triple indicating the 
end of a compiler 
pseudo- variable 
argument list 

Code byte or triple 
used to indicate the 
start of a compiler 
pseudo- variable 
argument list 

Replaces the keyword 
CONDITION 

Replaces the keyword 
CONTROLLED 

Marker which indi- 
cates the control 
variable of a DO loop 

Replaces the keyword 
CONVERSION 

Replaces the keyword 
COPY 

Triple which indi- 
cates the end of a 
control variable 

expression 

Replaces the keyword 
DATA 

Triple indicating the 
end of a data direct- 
ed I/O list 

Replaces the keyword 
DO in an iterative 
clause in a data list 

Causes output of 
'ERROR STOP' and the 
four bytes following 
in the pseudo-code 
item 

Replaces the keyword 
DECIMAL 

Replaces the keyword 
DECLARE 

Replaces the keyword 
DEFINED 

Marker which precedes 
the parenthesized 

iSUB subscript list 
of a defined array 

Replaces the keyword 
DELAY 

Replaces the keyword 
DELETE 
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DICTIONARY 

T 

Marker indicating 



BEGIN or PROCEDURE 

REFERENCE 


that the following 

two bytes contain a 



block 



symbolic dictionary 

END BLOCK 

R » T , 

Indicates the end cf 



reference 



a text block 




END DC 

R, T 

Replaces the END key- 

DIRECT 

R 

Replaces the keyword 



word at the end of a 



DIRECT 



non-iterative DO 

group 

DISPLAY 

R 

Replaces the keyword 
DISPLAY 

ENDFILE 

R 

Replaces the keyword 
ENDFILE 

DO 

R,T 

Replaces the keyword 
DO, in a non- 

END IT'DO 

R,T 

Replaces the END key- 



iterative DO group 



word at the end of an 
iterative DO loop 

DO EQUALS 

R,T 

Marker which replaces 






the PL/I ' = ' in the 

END LIST MARK R 

Marker used by phases 



iterative DO 



GK and GF to indicate 



statement (DO 1= ) 



the end of a function 
argument list 

DR.OB 

PS 

Indicates to the reg- 
ister allocation 

END PROG 

R , T , PS 

Marks the end of pro- 



phases that a base 
register used for 



gram 



addressing a con- 

END PROGRAM 2 

T, PS 

Triple which marks 



trolled variable 



the end of the second 



should be dropped 



file text i.e. pro- 
logue initialization 

DROP 

T 

Triple used in optim- 



text, which is placed 



ization indicating 



after the source pro- 



the drop of an index 
register 



gram text 




ENTRY 

R 

Replaces the keyword 

DROP 

PS 

Indicates that a sym- 
bolic or assigned 



ENTRY 



register in the oper- 

EPRM 

PS 

Indicates the start 



and field of the 



of an external 



instruction is no 



library calling 



longer required 



sequence. (Appendix 

DIO) 

DRPL 

PS 

Indicates the end of 
the use of a list of 

EPRM ' 

PS 

Indicates the end of 



symbolic registers 



an external library 



which have appeared 



calling sequence 



in cm USSL item 

EQU 

PS 

Indicates that the 

E 

R,T 

Floating decimal for- 



two byte operand 



mat item 



field contains a 

label. The label is 

EDIT 

R,T 

Replaces the keyword 



considered to be 



EDIT 



attached to the fol- 
lowing pseudo-code 

EDIT' 

T 

Triple indicating the 



item 



end of an edit 

directed I/O list 

EQU' 

PS 

As for EQU, but indi- 
cates that control 

EIO 

T 

Code byte or triple 



may enter from a dif- 



which indicates the 
end of an I/O state- 



ferent statement. 



ment. 

ERROR 

R 

Replaces the keyword 
ERROR 

ELSE 

R,T 

Replaces the keyword 
ELSE 

ERROR 

T 

Code byte or triple 
which marks the posi- 

END 

R f T 

Replaces the END key- 



tion of an erroneous 



word at the end of a 



source statement 
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which has oeen delet- 
ed 


ERROR 

PS 

Indicates the pre- 
sence of a source 
program error 

EVENT 

R , T 

Replaces the keyword 
EVENT 

EXCLUSIVE 

R 

Replaces keyword 

EXCLUSIVE 

EXIT 

R,T 

Replaces the keyword 
EXIT 

EXTERNAL 

R 

Replaces the keyword 
EXTERNAL 

F 

R, T 

Fixed decimal format 
item' 

F ' 

T 

Triple which indi- 
cates the end of an F 
format item 

F COMMA 

T 

Triple used to indi- 
cate the arguments of 
a function or pseudo 
variable 

FILE 

R,T 

Replaces the keyword 
FILE 

FILE' 

T 

Triple indicating the 
end of a file list 

FINISH 

R 

Replaces keyword FIN- 
ISH 

FIXED 

R 

Replaces the keyword 
FIXED 

FIX BINARY 
IMAGINARY 

R 

Marker which precedes 
a fixed binary imag- 
inary constant 

FIX BINARY 
REAL 

R 

Marker which precedes 
a fixed binary real 
constant 

FIX DECIMAL 
IMAGINARY 

R 

Marker which precedes 
a fixed decimal imag- 
inary constant 

FIX DECIMAL 
REAL 

R 

Marker which precedes 
a fixed decimal real 
constant . 

FIXED 

OVERFLOW 

R 

Replaces keywords 
FIXED OVERFLOW 

FLOAT 

R 

Replaces the keyword 
FLOAT 

FLOAT BINARY 
IMAGINARY 

R 

Marker which precedes 
a float binary imag- 
inary constant 


FLOAT BINARY 
REAL 

R 

Marker which precedes 
a float binary real 
constant 

FLOAT DECIMAL 
IMAGINARY 

R 

Marker which precedes 
a float decimal imag- 
inary constant 

FLOAT DECIMAL 
REAL 

R 

Marker which precedes 
a float decimal real 
constant 

FORMAT 

R,T 

Replaces the keyword 
FORMAT 

FORMAT ' 

T 

Triple which marks 
the end of a remote 
format statement 

FORMAT LIST 

R,T 

Precedes a format 

list 

FORMAT LIST' 

T 

Triple indicating the 
end of a format list 

FREE 

R,T,PS 

Replaces the keyword 
FREE 

FROM 

R , T 

Replaces the keyword 
FROM 

FUNCTION 

T 

Code byte or triple 
indicating the start 
of a function argu- 
ment list 

FUNCTION 

R 

Marker which precedes 
the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 

GENERIC 

R 

Replaces the keyword 
GENERIC 

GET 

R,T 

Replaces the keyword 
GET 

GOOE 

R# T 

GOTO out of block 

statement marker 

GOLN 

T 

Indicates a branch to 
a label number 

GOTO 

R f T 

GOTO in block state- 
ment marker 

I DENT 

R,T 

Replaces the keyword 
IDENT 

IF 

R f T 

Replaces the keyword 
IF 

IF' 

T 

Triple which termi- 
nates an IF expres- 
sion 
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IGN 2. . 8 


Ignore markers used 
by Final Assembly 
when code has been 
made redundant. The 
final digit indicates 
length to be ignored. 

IGNORE 

R , T 

Replaces the keyword 
IGNORE 

IGNORE 

PS 

Pseudo-code item 
which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 

IN 

R/T 

Replaces the keyword 
IN 

INITIAL 

R 

Replaces the keyword 
INITIAL 

INITIAL LABEL 

R 

Marker which precedes 
elements of arrays of 
labelvariables which 
are initialized by 
being attached to 
statements 

INITVAR 

R 

Replaces the keyword 
INITIAL ( iteration 
factors) 

INPUT 

R 

Replaces keyword 

INPUT 

INTEGER 

R 

Marker which precedes 
an internal binary 
integer constant 

INTERNAL 

R 

Replaces the keyword 
INTERNAL 

INTO 

R, T 

Replaces the keyword 
INTO 

IPRM 

PS 

Indicates the end of 
an internal library 
calling sequence 

IT DO 

R,T f PS 

Replaces the keyword 
DO in an iterative DO 
loop 

ITDO ' 

T , PS 

Triple which termi- 
nates an iterative DO 
expression 

JMP 

T 

Triple indicate the 
presence of pseudo- 
code. The number of 
bytes of pseudo-code 
is specified in the 
first operand 

KEY 

R ( T 

Replaces the keyword 


KEY 


KEYED 

R 

Replaces keyword 

KEYED 

KEYFROM 

R, T 

Replaces the keyword 
KEYFROM 

KEYTO 

R/T 

Replaces the keyword 
KEYTO 

LABEL 

R 

Replaces the keyword 
LABEL 

LEFT 

T 

Triple indicating a 
temporary result for 
a pseudo-variable 

LIKE 

R 

Replaces the keyword 
LIKE 

LINE 

R/T 

Replaces the keyword 
LINE 

LINESIZE 

R/T 

Replaces the keyword 
LINESIZE 

LIST 

R,T 

Replaces the keyword 
LIST 

LIST' 

T 

Triple indicating the 
end cf a list 
directed I/O list 

LIST MARK 

T 

Marker used by Phases 
GK and GP to indicace 
the start of function 
argument list 

LITERAL 

CONSTANT 

R, T 

Indicates that the 
following two bytes 
contain a fixed 

binary constant 

LOCATE 

R, T 

Replaces the keyword 
LOCATE 

MAIN 

R 

Replaces keyword MAIN 

MULTIPLE 

ASSIGN 

R/T 

Marker indicating 
multiple assignment 

(Replaces PL/I ' , ' ) 

NAME 

R 

Replaces the keyword 
NAME in the context 
of ON NAME 

NDX 

T 

Triple indicating 
indexing during 
optimization of DO 
loops 

NEW PAGE 

R 

Replaces the keyword 
NEW PAGE 

NOCHECK 

R 

Replaces the keyword 
NOCHECK 

NO SNAP 

R,T 

Replaces the keyword 
NOSNAP 
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NOSNAP 


NULL 

NULL- FUNCTION 

| OFFSET 

I 

OPEN 

OFS 

ON 

OPTIONS 

ON RECORD 

OSM1 

OSM2 

OSM3 

OUTPUT 

OVERFLOW 

P 

P' 

PAGE 

PAGESIZE 

| PASS 
PCBS 


T 

Triple which indi- 



the complete prologue 


cates the end of a 



for a procedure block 


NOSNAP list 

PCC 

PS 

Follows a PROC or 

EEGIN marker. Used 

R, T 

Null statement marker 



to carry the prefix 
change byte for tne 

T 

Enables TMPD's to be 



block . 


passed in text by 
phases LE and LG 

PFMT 

PS 

PICTURE format 


before the evaluation 
phase LS 

PICTURE 

R 

Replaces the keyword 
PICTURE 

R 

Replaces the keyword 
OFFSET 

PINS 

PS 

Indicates the prolo- 
gue insertion point 

R,T 

Replaces the keyword 
OPEN 

PLBS 

PS 

Indicates the start 
of the prologue for a 

T 

Triple indicating 



procedure block which 


offset used in optim- 



is common to all 


ization of DO loops 



entry points 

R,T 

Replaces the keyword 

PLBS ' 

PS 

Indicates the end of 


ON 



the prologue of a 

procedure block which 

R 

Replaces the keyword 



is common to all 


OPTIONS 



entry points 

R 

Replaces the keyword 

| POINTER 

R 

Replaces the keyword 


RECORD in the context 

I 


POINTER 


ON RECORD 

PRECISICN1 

R 

Indicates a precision 

PS 

Indicates that the 



which has been writ- 


two byte operand 



ten in the source 


field contains an 



program. as '(10)', 


index register 



which may be either 
fixed or float 

PS 

Indicates that the 

two byte operand 

PRECISICN2 

R 

Indicates a precision 


field contains a let- 



which has seen writ- 


eral offset 



ten in the source 

program as '(5,2)' 

PS 

Indicates the pre- 

sence of a literal 



which implies fixed 


offset and an index 

PRINT 

R 

Replaces keyword 


register 



PRINT 

R 

Replaces keyword OUT- 

PRIORITY 

R,T 

Replaces the keyword 


PUT 



PRIORITY 

R 

Replaces keyword 

PSEUDO- 

R 

Marker which precedes 


OVERFLOW 

VARIABLE 


the parenthesized 

argument list to a 

AR, T 

Picture format item 



pseudo-variable 

T 

Triple which indi- 

PSEUDO- 

T 

Code byte or triple 


cates the end of a P 

VARIABLE 


indicating the start 


format item 



of a pseudo-variable 
argument list 

R,T 

Picture format item 

PSEUDO- 

T 

Triple indicating the 

R , T 

Replaces the keyword 

VARIABLE' 


end of a pseudo- 


PAGESIZE 



variable argument 

list 

PS 

POINTER Assignment 

PSLD 

PS 

Indicates a pseudo- 

PS 

Indicates the end of 



code instruction for 
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use by the final 
assembly listing 
phase 

PROC 

R, T PS 

Replaces the keyword 
PROCEDURE 

PROC ' 

T. PS 

Triple which termi- 
nates the procedure 
block triples 

PUT 

R,T 

Replaces the keyword 
PUT 

R 

R,T 

Remote format state- 
ment marker 

READ 

R,T 

Replaces the keyword 
READ 

REAL 

R 

Replaces the keyword 
REAL 

RECORD 

R 

Replaces the keyword 
RECORD 

RECURSIVE 

R 

Replaces the keyword 
RECURSIVE 

REENTRANT 

R 

Replaces the keyword 
REENTRANT 

REPLY 

R,T 

Replaces the keyword 
REPLY 

RETURN 

R,T 

Replaces statement 

marker 

REVERT 

R,T 

Replaces the keyword 
REVERT 

REWRITE 

R , T 

Replaces the keyword 
REWRITE 

RPL 

T 

Code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 

RPL' 

T 

Triple indicating the 
end of a format list 
replication factor 
expression 

RWA 

PS 

Indication of an 
addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
work space which has 
been allocated 

SECONDARY 

R 

Replaces keyword SEC- 
ONDARY 


SECOND LEVEL 
MARKER 

R 

A code byte which 
immediately precedes 
all code bytes 

appearing in the sec- 
ond level table 

SELL 

T # PS 

Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 

SET 

R,T 

Replaces the keyword 
SET 

SETS 

R 

Replaces the keyword 
SETS 

SEQUENTIAL 

R 

Replaces the keyword 
SEQUENTIAL 

SIGNAL 

R,T 

Replaces the keyword 
SIGNAL 

SIZE 

R 

Replaces the keyword 
SI ZE 

SKIP 

R,T 

Replaces the keyword 
SKIP 

SL 

R , T , PS 

Statement label mark- 
er. Precedes all 
labelled statements 

SN 

R , T , PS 

Statement number 
marker. Precedes all 
unlabelled statements 

SN2 

R,T,PS 

Marker which precedes 
a second file state- 
ment (See Appendix 
D . 8 ) 

SN3 

PS 

Indicates the start 
of a second file 
statement which is 
concerned with ini- 
tializing array, or 
structure, or string 
dope vectors. Simi- 
lar to SN2 (Appendix 
D. 8 ) except that 
there is no associat- 
ed entry 

SNAP' 

T 

Triple which indi- 
cates the end of a 
snap list 

STATIC 

R 

Replaces the keyword 
STATIC 

STERLING 
DECIMAL REAL 

R 

Marker which precedes 
a sterling decimal 
constant 

STOP 

R,T 

Replaces the keyword 


STOP 
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STREAM 


R 

STRING R,T 

STRING' T 

| STRINGRANGE R 


SUB R 

SUBSCRIPT R , T 

SUBSCRIPT' T 

SUBSCRIPT- R 

RANGE 

SYSTEM R, T 

SYSTEM' T 

TASK R , T 

THEN R , T 

TITLE R,T 

TMPD T 

TO R , T 


Replaces keyword 

STREAM 

Replaces the keyword 
STRING 

Triple indicating the 
end of a string list 
used with list 

directed I/O 

Replaces the keyword 
STRINGRANGE 


Replaces the keyword 
SUB used in iSUB 
DEFINING marker 

preceding a BIT 

Marker which precedes 
the parenthesized 

subscript list of an 
array 

Triple indicating the 
end of a subscript 
list 

Replaces keyword SUB- 
SCRIPTRANGE 

Replaces the keyword 
SYSTEM 

Triple which indi- 
cates the end of a 
system list 

Replaces the keyword 
TASK 

Replaces the keyword 
THEN 

Replaces the keyword 
TITLE 


TO' 

T 

Triple which indi- 
cates the end of a TO 
expression 

TRANSMIT 

R 

Replaces the keyword 
TRANSMIT 

UNBUFFERED 

R 

Replaces the keyword 
UNBUFFERED 

UNDEFINEDF1LE 

R 

Replaces the keyword 
UNDEFINEDFILE 

UNDERFLOW 

R 

Replaces keyword 

UNDERFLOW 

UNLOCK 

R,T 

Replaces the keyword 
UNLOCK 

UPDATE 

R 

Replaces keyword 

UPDATE 

USES 

R 

Replaces the keyword 
USES 

USNG 

PS 

Indicates the pre- 
sence of an assigned 
register 

USSL 

PS 

Indicates a list of 
symbolic registers 
which need not be 
saved on branch and 
branch and link 
instructions 

VARYING 

R 

Replaces the keyword 
VARYING 

WHILE 

R , T 

Replaces the keyword 
WHILE 

WHILE' 

T 

Triple which indi- 
cates the end of a 
WHILE expression 


Triple indicating a 
temporary expression 
result 

Marker replacing TO 
in the iterative DO 
statement 


WRITE 

X 

ZERODIVIDE 


R t T 

R,T 

R 


Replaces the keyword 
WRITE 

Spacing format item 

Replaces the keyword 
ZERODIVIDE 
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APPENDIX £ : STORAGE REQUIREMENTS 


The (F) Compiler requires main storage 
for the following purposes : 

Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/Output buffers 
Input/Output routines (BSAM) 

Compi le r Requ ir emen ts an d D ic t icnary/ Te xt 
The main storage required by each pnase Block R elationship 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a miniirium of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 


During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of main 
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End of Volume 

1 

1 

800 | 

80 0 | 

800 ] 

800| 

8 00 | 
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8 00 | 

800 ( 

800 | 
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Data Management 

1 

4894 | 

48941 

4894 

4894 j 

4894] 

4894 j 

4894 I 

48 94 j 

4894 | 

4894 ] 


Compiler Control 

1 

12266 | 
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12266| 

12266 | 


Phase Area 

1 

16384| 

16384116384 1 

16384| 
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Text Area 

1 

2048 | 

81921 
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16384| 
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Dictionary Area 

1 
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1 
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1538 | 

15 38 1 

1538 | 

1538| 

1538 | 

1538] 

1538 | 



-+ 

_ | 

*"+ 

1 

+ 

+ 

i 

+ 

+- 

+- 

-1 

1 

TOTALS 

1 

44374 | 

56662] 

73038105814 | 

171340| 

44374 j 

52566| 

68950] 101718|167254 | 

L. 


_X 

— 1 

_ X 

X 

_x 

X 

X 

X 

_x 

x_ 

_ _J 



storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the clock size is extracted. 

The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. The sec- 
ond table details the storage allocation in 
each environment. 
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Initially, four text and four dictionary 
blocks are allocated to the compiler (two 
each are allocated when only 44K bytes of 
storage are available to the compiler. 
This is then expanded to four of each at 
the end of the read-in phase). If the text 
and/or dictionary expands to 'fill these 


blocks, more main storage is allocated as 
blocks. This process continues until the 
spi ll point is reached (i.e., until all the 
main storage available to the compiler has 
been used) . If still more main storage is 
required, the spill file (SYSUT1) is 
opened, and blocks are written out. 
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APPENDIX F: COMMUNICATIONS REGION 


The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 


Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in this 
Appendix. 

Note: 

The use of the communications region 
during compile-time processing is 
described in Appendix J. 

TRANSFER 

VECTORS 


Hex. 

Offset 


Name 

Description 

8 


ZUPL 

Print a line 

C 


ZURD 

Read a card 

10 


ZTJGC 

Get sciratch storage 

14 


ZUTXTC 

Get text block 

18 


ZURC 

Release scratch storage 

1C 




20 


ZABORT 

Dump and go to error 
message routines 

24 


ZLOADW 

Load and return to cal- 
ler 

28 


ZDICAB 

Make dictionary entry. 
Absolute address 

returned 

2C 


ZDICRF 

Make dictionary entry. 
Dictionary reference 
returned 

30 


ZUERR 

Make error message entry 


34 

ZDRFAB 

Convert dictionary ref- 
erence tc absolute 
address 

38 

ZLOADX 

Load with overlay and 
return to caller 

3C 



40 

REQEST 

Give a list of phase 
names required or not 
wanted for this compila- 
tion 

44 

RELESE 

Release- all named phases 

48 

RLSCTL 

Release all named phases 
and pass to next phase 

4C 

ZDUMP 

Dump specified core and 
continue 

50 

ZTXTRF 

Convert absolute address 
to text reference 

54 

ZTXTAB 

Convert text reference 
to absolute address 

58 

ZCHAIN 

Find next block in chain 

5C 

Z ALTER 

Change text block status 

60 

ZDABRF 

Convert absolute address 
to dictionary reference 

64 

ZNALRF 

Not aligned dictionary 
entry. Reference 

returned 

68 

ZNALDB 

Not aligned dictionary 
entry. Absolute address 
returned 

6C 

ZEND 

Terminate job 

70 

ZULF 

Write on load file 

74 

ZUSP 

Write on punch 

78 

ZUBW 

Write on backing store 

80 

RLSCTLX 

Release all named phases 


and hand control to the 
next phase, after having 
loaded it with overlay 
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COMMUNICATIONS REGION 


These tables give the following information for each location of the communi- 
cations region: name of location; offset (i.e., relative address); use (i.e., 
stages of compilation during which the location is in use); and a description of 
the contents. Certain locations are used in one capacity during part of the 
compilation, and then re-used in a different capacity during another part of the 
compilation. In these cases, one location will have two table entries: details of 
alternative usage appear in the columns headed Naire 2 , Use 2 , etc. 
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• Table 1. Communications Region 


T T" 

Name |Offset (Dec.) j 

f + . 


Use 


Description 


SAVEO 

1 o 

1 

ALL 


PHASES 

SAVE1 

| SAVEO +4 

1 

ALL 


PHASES 

SAVE 2 

| SAVE0+8 ETC. 

1 

I 

I 

ALL 

• 

PHASES 

SAVE 15 

1 • 

! SAVE0+60 

i 

I 

1 

ALL 

• 

PHASES 

ZTV 

1 64 

1 

ALL 


PHASES 

2TRAN1 

| 68 

1 

ALL 


PHASES 

Z TRAN 2 

| ZTRAN1+4 

1 

ALL 


PHASES 

ZNXTD 

1 76 

1 

ALL 


PHASES 

ZERRD 

| 80 

1 

All 


PHASES 

ZERRS 

| ZERRD+4 

1 

ALL 


PHASES 

ZERRW 

| ZERRD+8 

I 

ALL 


PHASES 

ZERRC 

| ZERRD+1 2 

1 

ALL 


PHASES 

ZDNXT 

| ZERRD+1 6 

1 

ALL 


PHASES 

ZSNXT 

| ZDNXT + 4 

1 

ALL 


PHASES 

ZWNXT 

| ZDNXT + 8 

1 

ALL 


PHASES 

ZCNXT 

| ZDNXT+1 2 

1 

ALL 


PHASES 

ZMYNAM 

| 112 

1 

ALL 


PHASES 

DICTP 

| 116 

1 

I 

ALL 


PHASES 

ZCNCHR 

| 118 

! 

ALL 


PHASES 

ZPROCH 

| 120 

1 

1 

ALL 


PHASES 

ZSTAT 

| 124 

1 

ALL 


PHASES 

PARI 

| 128 

I 

ALL 


PHASES 

PAR 2 

j PARI +4 ETC. 

i 

1 

1 

j 

ALL 

• 

PHASES 

PAR8 

| PAR1 + 28 

1 

1 

1 

1 

ALL 

• 

PHASES 

CORLFT 

j 160 

1 

ALL 


PHASES 

LKNAME 

| 164 

I 

PHASE 

VE 

ZOBSAD 

j 172 

1 

ALL 


PHASES 

TERMSW 

| 176 

1 

ALL 


PHASES 

OFDNAM 

j 178 

1 

1 

ALL 


PHASES 

SPLNAM 

j 180 

1 

ALL 


PHASES 

ZOBNUM 

| 182 

1 

1 

ALL 


PHASES 

SCNOP 

j 184 

1 

ALL 


PHASES 

SCCNF 

| 185 

1 

ALL 


PHASES 

ZDROLF 

| 186 

1 

ALL 


PHASES 

AREA 

| 187 

1 

I 

ALL 


PHASES 

ZM91 

! 188 

1 

1 

ALL 


PHASES 

PERRSW 

| 189 

! 

ALL 


PHASES 

BERSW 

| 190 

1 

ALL 


PHASES 

IOERSM 

| 191 

1 

ALL 


PHASES 

ZPAGE 

| 192 

1 

ALL 


PHASES 

ZLINE 

| 194 

1 

ALL 


PHASES 

ZOPT 

| 196 

1 

j 

ALL 


PHASES 

PARMLEN 

| 197 

1 

1 

i 

ALL 


PHASES 

MAXFON 

| 198 

1 

1 

ALL 


PHASES 

ZDICTSP 

| 200 

1 

1 

ALL 


PHASES 


L X X 


Register save area 
Register save area 
Register save area 


Register save area 
Control phase base 

External to internal translate table 
Internal to external translate table 
Next available dictionary location 

First locations 01 error chains 


Current ends oi error chains 


Name of last phase entered 


Source column containing control 
character 

Chain of created procedures 
Current statement number 
Parameter word 1 
Parameter word 2 


Parameter word 8 

Amount of core left for compilation 
Member name of module produced by 
compilation 

Address of overflow block 
Compilation terminating switch 


j Name of phase in control when | 
j spill file is opened | 
j Overflow block number | 
j Phase directory scan switch | 
j On if in second half of compiler j 
j Overlay switch | 
| Code word for dummy routines j 
I (phase AD) j 
j (used for Model 91 systems) | 
j Print error switch j 
| *process error byte | 
j I/O error switch j 
| Number of lines in page j 
j Number of characters in a line j 
j Code word of loading of optimizing | 
| phases j 
j Length of options field in * - process j 
j card j 
j Number of offset slots in a dictionary! 
j block j 
j Useful dictionary block size j 
x J 
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Table 1. Communications Region (cont'd) 


Name 

“T 

1 

.j. 

Offset (Dec. ) 

~T~ 

1 

-4-- 


Use 

■y 

1 

-I- 

Description 

ZNXTOF 

T 

1 

204 

T 

1 

ALL 

PHASES 

T 

1 

Offset of next dictionary entry 

FONOF 

1 

208 

1 

ALL 

PHASES 

1 

Offset of offset slots in dictionary 

FSTDRF 

1 

1 

212 

1 

1 

ALL 

PHASES 

1 

I 

block 

Dictionary reference of last dictionar 

ERCODE 

1 

1 

224 

1 

1 

ALL 

PHASES 

1 

1 

entry 

Error message codes 

MCSIZE 

1 

228 

1 

Aj_iL 

PHASES 

1 

M/CSIZE this run 

CCCODE 

1 

232 

1 

ALL 

PHASES 

1 

Control card requests 

HDR 

1 

236 

1 

ALL 

PHASES 

1 

Address of phase directory 

TLR 

1 

240 

1 

ALL 

PHASES 

1 

Timer last read 

TRT 

1 

244 

I 

ALL 

PHASES 

1 

Total run time 

ARINT 

1 

248 

1 

ALL 

PHASES 

1 

Arithmetic interrupt 

BR2 

1 

252 

1 

ALL 

PHASES 

1 

Second base for control phase 

STARTX 

1 

256 

1 

ALL 

PHASES 

1 

Start of text 

DICTSZ 

1 

260 

! 

ALL 

PHASES 

1 

Dictionary block size 

TXTSZ 

1 

264 

i 

ALL 

PHASES 

1 

Space available in text block 

RDSIZE 

1 

268 

1 

ALL 

PHASES 

1 

SIZE of read area 

INCOD 

1 

272 

1 

ALL 

PHASES 

1 

Interrupt code 

ARMASK 

1 

273 

1 

ALL 

PHASES 

1 

Arithmetic error mask 

LOCK 

1 

274 

1 

ALL 

PHASES 

1 

Dictionary lock slot 

ZNXTLC 

1 

276 

1 

ALL 

PHASES 

1 

End of current text 

ZSHIFT 

1 

280 

1 

ALL 

PHASES 

1 

Number of bits in dictionary reference 

ZMASK 

1 

1 

284 

1 

i 

ALL 

PHASES 

1 

1 

offset 

Mask to remove block numbers 

ZMASK1 

1 

ZMASK + 2 

1 

ALL 

PHASES 

1 

Mask to remove offset 

ZSOR 

1 

288 

1 

ALL 

PHASES 

1 

Input record source 

ZMAG 

1 

290 

i 

ALL 

PHASES 

1 

Input record margin 

ZCOMM 

1 

304 

1 

ALL 

PHASES 

1 



. 4 . 





.JL. 
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•Table 2. Communications Region 


Name j 

1 

_L 

Offset 

h 

| Start 

i 

— T — -j 

j End | 

I - l 

Description 

1 


T 


— T T 


ZCALLC | 

ZCOMM+ 0 

j Read 

in 

j BCD to i 

Start of CALL 

I 




j Diet. Ref . | 

chain 

ZLABTB j 

+ 4 

j Read 

in 

(Initial j 

Start of label 

I 




1 1 

chain 

ZATTID j 

+ 8 



1 1 

Pointer to 

I 




1 1 

attribute 

1 




1 1 

tidy-up area 

ZALLCH | 

+ 12 

| Read 

in 

j ALLOCATE +| 

Start of 

I 




(Attribute ( 

ALLOCATE chain 

ZFLAG1 | 

+ 16 

| Read 

in 

j Dictionary | 

Flag nytes. 

Z FLAG 2 j 

+ 17 



1 1 

mainly used 

Z FLAG 3 j 

+ 18 



1 1 

for optional 

Z FLAG 4 | 

+ 19 



1 1 

phase marking 

Z FLAG 5 j 

+ 20 



1 1 

(See Table 3 

1 




1 1 

of this appen- 

1 




1 1 

dix) 

UNUSED | 

+ 21 



1 1 


1 

TO 



1 1 


1 

+ 23 



1 1 


ZSCRCHI 

+ 24 

1 PD 


1 PL 1 

Address of 


Dec. 


Use 


( Use^ 

1 

Name 2 

t — ' 

-•j Descriptions 

j Start 

j End 

1 

+ 

I 

1 

+ 

i 

1 

4 

1 

1 

i I i 

i 1 1 

ZPCOP 1 | | 

1 1 1 

1 1 1 

1 I I 

1 i i 

1 

1 

1 

1 

ZSY SOT ( Pseudo 

1 1 

1 1 

1 1 

1 1 

| Pseudo | Diet . Ref. 

j code 

1 

1 

1 

1 

1 

| code 

1 

1 

1 

1 

1 

I 

| SYSOUT 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

i 

ZINCL |PC. 

1 

I 

1 

1 

1 

( End 

1 

1 

1 

1 

1 

1 

| INCLUDE card 

1 

1 

j pointer 

ZEQTA3 j Final 

(Assy. 

j Assigned 

1 

1 

(offset table 

ZLCONS | Strge 

(Alloc 

(Last constant 

ZEOCS 1 

1 

jin STATIC. 

1 

1 

(End Of STATIC 

ZSMREG| Trans- 

| Pseudo ( Current sym- 

j lator 

1 

j code 

1 

| belie register 

1 

! 

ZFSTEX | Strge 

1 

| End 

1 

| First external 

j alloc 

1 

j item 

ZPRSIZ ( Final 

| Assy . 

jsize of com- 

1 

1 

j piled program 

ZSICSZ 1 Final 

I Assy . 

j STATIC 

1 

1 

j INTERNAL size 

ZSTALC1 Final 

I Assy . 

j Storage loc- 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

j ation counter 

1 

1 

I 

1 

1 

1 

1 

1 

1 

1 

ZCITEMI Ere 

1 

1 

1 

! 

1 

| End 

I 

1 

1 

1 

1 

|Chain of CON- 

j trans . 

1 

(TROLLED items 

ZEQR.AX j Pseudo 

( End 

|Riax. label 

j code 

j 

1 

1 

j number 

1 

1 

_ _r 


1 

.x_ 


UNUSED 


ZHASH 


+ 25 
TO 
+ 27) 

+28 | Dictionary | Dictionary 

I 

+32 | Not used in first half 


ZFATTB j 

1 

+ 36 j Dictionary 

1 

I 

ZCDIMC | 

1 

+ 40 

I 

| Dictionary 

1 

Z2FILE ( 

1 

+ 44 

(Dictionary 

1 

ZDLFST j 

1 

+ 48 

j Dictionary 

1 

ZDCBLD | 

i 

+ 52 

j Dictionary 

1 

ZMPSTK j 

1 

+ 56 

j Dictionary 

1 

ZUPIC 1 

+ 60 

j Dictionary 

1 

ZPROC1 | 

i 

+ 64 

j Dictionary 

1 

ZSTACH j 

i 

+ 68 

j Dictionary 

1 

ZVDIMC j 

1 

+74 

j Dictiona ry 

1 

ZCONCH | 

i 

+ 78 

j Dictionary 

1 

ZDEFCH | 

i 

+ 80 

j Dictionary 

1 

ZLIKCH | 

1 

+ 82 

j Dictionary 

1 

ZPOLCH | 

+ 84 

j Dictionary 


scratch core 
kept across 
phases 


Start of hash 
table 


Declare 
pass 2 

Pre- 

translator 

End 

Storage 

allocator 

Dictionary 

Translator 

Picture 

processor 

End 

End 

Translator 


ALLOCATE 

Dictionary 

Dictionary 

Dictionary 


Start of fact- 
ored attribute 

Start constant 
dimension 
Start of 
second file 
Def ined 
storage area 
Dictionary 
build area 
Program map 
stack 
Start of 
picture chain 
Start of entry 
type 1 chain 
Start of STAT- 
IC chain (6) 
Start of vari- 
able dimension 
chain 

Start of con- 
stants chain 
Chain of 
defined items 
Chain of LIKE 
items 

Chain of POOL 
items 


.j. 
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Table 2. Communications Region (cont'd) 


r t 

Name 


T 1 

I 

-j Descriptions 


Dec. 
Offset f- 


Use 

i 


Start 


End 


ZCOBOL 

T T 

| ZCOMM + 8 6 | GB 

1 1 

T - 

I JI 

ZDCOM1 

1 1 

| ZCOMM+86 | Dictionary 

l l 

(Dictionary 

ZDCOM2 

1 1 

| +90 | Dictionary 

1 1 

i i 

(Dictionary 

ZDSA 

1 1 

1 1 

| ZCOMM + 9 4 | FA 

| UD 

ZCPOFF 

1 1 

| ZCOMM j PD 

| +100 j 

1 1 

| UA 


+- 


Description 


Name- 


Use- 


Start j End 

+ 


Head of COBOL 
structure 
chain 
Latest 
diet. ref. 
Flags for dic- 
tionary build 
interface 
(8 bytes) 

Head of STATIC 
DSA chain 
Offset, of 
first 

constants pool 
within static 
internal . 


N OTE : Bytes ZCOMM+60 to ZCOMM+332 are used internally within the Read-in phase and cannot 

be assumed to be zero at exit from that phase. 
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•Table 3. Communications Region. Bit 

r T T T 


1 1 

BYTE 

1 

OFFSET 

1 

BIT 

i 

BIT NAME 

1 1 

NAME 

1 


1 

(HEX) 

1 


I h 

I I 

ZFLAGl 

-+- 

1 

ZCOMM+16 

+- 

1 

80 

1 

ZDEFFL 

1 1 


1 


1 

40 

1 

ZAWAFL 

1 1 


1 


1 

20 

1 

ZSECFL 

1 1 


1 


1 

10 

1 

ZDIMFL 

1 1 


1 


1 

08 

1 

ZCHKFL 

1 1 


1 


1 

04 

1 

ZONFL 

1 1 


1 


1 

02 

1 

ZSTRFL 

1 1 


1 


1 

01 

i 

ZDECFL 


Z FLAG 2 

1 

1 

+ 17 

1 

1 

80 

1 

1 

ZLIKFL 

1 II 


1 


1 

40 

1 

ZINTST 

1 1 

1 i 


1 

1 


1 

I 

20 

10 

1 

1 

zqpcFL 

ZGTPFL 

1 f 


1 


1 

08 

1 

ZGOTFL 



1 


1 

04 

I 

ZTEPFL 

1 1 


1 


1 

02 

1 

ZPICFL 

1 1 


1 


1 

01 

1 

ZISBFL 

1 

1 1 

Z FLAG 3 

1 

1 

+ 18 

1 

1 

80 

1 

I 

ZCONTG 

1 1 


1 


1 

40 

1 

ZSETFL 

1 i 


1 


1 

20 

1 

ZOSSFL 

1 1 


I 


1 

10 

1 

ZARGFL 

1 1 


1 


1 

08 

I 

ZINLFL 

1 ! 


1 


1 

04 

1 

ZDIOFL 

1 1 


1 


1 

02 

1 

ZRECIO 

1 1 


1 


1 

01 

i 

Z I NT AC 

1 

1 1 

Z FLAG 4 

1 

1 

+ 19 

1 

1 

30 

1 

1 

ZFREE 

1 1 


I 


I 

4 0 

1 

STM256 

1 1 


1 


1 

20 

1 

FILEFL 

1 1 


1 



10 

1 




i 


1 

0 8 

1 

ZPUTFL 

1 1 


1 


1 

0 4 

1 

ZGETFL 

1 1 


1 


1 

02 

1 

ZPTRFL 

1 1 


1 


1 

01 

1 

ZRODFL 

1 

1 1 

ZFLAG5 

1 

1 

+ 20 

1 

1 

8 0 

1 

1 

ZFTASK 

1 1 

1 1 


1 

1 


1 

1 

4 0 

1 

1 


1 1 


1 


1 

TO 

1 


1 1 


1 


I 

01 

1 


1 L - 


_.L_ 


I- 



— 


ge in Z FLAGS 

t 1 

j DESCRIPTION | 

j Bits are set on, on encountering:- | 

i H 

j DEFINED attribute | 

J ALLOCATE statement | 

j Second File statement j 

j Dimension attribute j 

| CHECK/NOCHECK prefix j 

j ON, SIGNAL or REVERT statement | 

j Structure j 

j DECLARE statement | 

I I 

| LIKE attribute | 

j STATIC INITIAL | 

I OPEN/CLOSE statement j 

| GET/PUT statement | 

j GO TO statement j 

| TASK/E VENT/PRI OK IT Y options, REPLY statement I 

| PICTURE attribute/f orirsat item 1 

j iSUB defining I 

I I 

j PACKED (NONSTRING) attribute | 

j SETS attribute j 

j DELAY, DISPLAY, 'WAIT statement. j 

j Argument list j 

j INITIAL Label | 

j DATA directed I/O j 

| RECORD I/O j 

j AUTO/CTL initialization | 

I I 

| FREE statement I 

| More than 256 statements | 

j Files present | 

j SPARE I 

j PUT DATA | 

| GET DATA | 

| Pointer Qualifier j 

| STATIC DSA Entry j 


TASK/EVENT/PRIORITY option on a CALL 

statement 

spare 
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APPENDIX G: SYSTEM GENERATION 


For full details of the system genera- 
tion process, see I BM Syst em/3 60 Operating 

System; S ystem Gen era ti on, Form C28-6554. 

During the system generation process, a 
control section named IEMAF is assembled 
| (see Figure 13) containing a table consist- 
| ing of five fixed-point values aligned on 
full-word boundaries, immediately followed 
by a bit string field that is twelve bytes 
| in length. The five fixed-point values are 
related to the compiler options LINECNT, 

| SIZE, SORMGIN (start), SCRMGIN (end), and 
j CONTROL COLUMN (PAGECTL) , respectively. 

| Bits 1 to 39, and 43 to 46 in the string 
are used to specify the default status of 
| the options. Bits 47 to 91 in the string 
j are used to specify if an option keyword is 
to be deleted or not. A "1" in the bit 
string means "yes" and a "0" means "no". 
The remaining bits in the string are spare 
| bits not currently in use. Figure 14 shows 
the bit identification table associated 
with the control section. 


r — 

— — 








- 




“ 



“ 


— 1 

| IEMAF 

START 


















DC 

F ' 6 0 


















DC 

F* 99999 

• 
















DC 

F* 2 ' 


















DC 

CN 

r- 

L 


















DC 

F* 0 ' 



































_ j 



r ■ 
















1 


DC 

B* | 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 0 

0 

I 

DEFAULT 



DC 

| 

B* | 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 0 

0 

« 

SWITCHES 




1 












r — 


— 


-H 


DC 

B* | 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 1 0 

0 

t 

DELETE 




1— 

— 

— 

--- 



— 

— 

— 

— 



J 






DC 

B* | 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 0 

0 

1 

SWITCHES 




1 















r 

— 1 


DC 

B* j 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 0 

0 

« 

| SPARE... 
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r — 
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— 
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•Figure 13. The IEMAF Control Section 
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r 

*r 


T 1 

I Bit 1 

Parameter 

| Bit! 

^ 

+■ 


-j- J 

1 1 

1 

ATR 

| 32 

| 2 

1 

NOATR 

| 33 

1 3 

1 

BCD 

j 34 

1 4 

1 

EBCDIC 

| 35 

1 5 

1 

CHAR60 

| 36 

1 6 

1 

CHAR 4 8 

j 37 

1 7 

1 

DECK 

| 38 

1 8 

1 

NODECK 

| 39 

1 9 

1 

EXTREF 

| 40 

1 10 

1 

NOEXTREF 

| 41 

1 11 

1 

FLAGW 

| 42 

1 12 

1 

FLAGE 

1 43 

1 13 

1 

FLAGS 

j 44 

| 14 

1 

LIST 

| 45 

1 15 

1 

NOLIST 

j 46 

1 16 

1 

LOAD 

1 4 7 

1 17 

1 

NOLOAD 

j 48 

1 18 

1 

XREF 

j 4 9 

1 19 

I 

NOXREF 

| 50 

| 20 

1 

SOURCE 

1 51 

| 21 

1 

NOSOURCE 

1 52 

| 22 

1 

SOURCE 2 

| 53 | 

| 23 

1 

NOSOURCE 2 

| 54 1 

| 24 

1 

OPT=0 

| 55 J 

1 25 

1 

OPT=l 

1 56 | 

| 26 

1 

Used for Model 

| 57 | 


1 

91 systems 

j 5 8 1 

| 27 

i 

Used for Model 

| 59 j 


1 

91 systems 

1 60 j 

| 28 

1 

MACDCK 

| 61 | 

j 29 

1 

NOMACDCK 

j 62 | 

| 30 

1 

EXTDIC 

i 6 3 | 

1 31 

1 

NOEXTDIC 

j 64 j 


Parameter 


OPLIST 

NCOPLIST 

STMT 

NOSTMT 

MACHO 

NOMACRO 

NEST 

NONEST 

Not used 

Not used 

Not used 

COMP 

NCCOMP 

LIBRARY OPTION, REAL 

LIBRARY OPTION, COMPLEX 

DELETE=ATR 

DELETE* NOATR 

D£LETE=BCD 

DELETE=EBCDIC 

DELETE=CHAR6 0 

DELETE*CHAR48 

DELETE=DECK 

BELETE=NODECK 

DELETE=EXTREF 

DELETE =NOEXTREF 

DELETE* FLAGW 

DELETE=FLAGE 

DELETE- FLAGS 

DELETE-LIST 

DELETE-NOLIST 

DELETE=LOAD 

DELETE-NOLOAD 


T 

f — 


| Bit 

Parameter 

1 

+ 

f 

H 

| 65 

DELETE=NOXREF 


j 66 

DELET E=SOURCE 


1 67 

DELETE=NOSOURCE 


| 68 

DELETE* SOURCE 2 


| 6 9 

DELETE=NOSOURCE2 


| 70 

DELETE=OPT 


| 71 

DELETF=LINECNT 


| 7 2 

DELETE=LINELNG 


| 73 

DELSTE=SIZE 


1 74 

DELETE* SORMG IN 


| 75 

DELETE* DUMP 


| 76 

DELETE-STMT 


1 77 

DELETE-1MOSTMT 
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DELETE=MACRC 


| 79 

DELETE* NOMACRO 


j 80 

DELETE=COMP 


j 81 

DELETE-NOCOMP 


| 8 2 

Used for Model 



91 systems 


| 83 

Used for Model 


1 

91 systems 


| 84 

DELETE* PAGECTL 


j 85 

DE LETE=MA C DCK 


| 86 

DELET E=NOMACDK 


j 87 

DELETE=EXTCIC 


1 8 8 

DELETE= NOEXTDIC 


| 89 

DELETE=OPLIST 


j 90 

DELETE--NCOFLIST 


j 91 

DELETE* NEST 


| 92 

DELETE* NONEST 


I" 

Bits 93-96 


1 

not used 



DELETE=XREF | | 

L X X X X X 

•Figure 14 „ Bit Identification Table 
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APPENDIX H: CODE PRODUCED EOR PROLOGUES AND EPILOGUES 


The mechanism of dynamic storage manage- 
ment is described in the publication IBM 

System/360 Oper ating System PL/I Li brary 

P rogram Logic Ma nual, Form Z28-6591 

Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code by the compiler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 


PROLOGUES AND EPILOGUES 


Example in PL/I 

A: I : PROCEDURE (X,Y) ; 

DECLARE Y CONTROLLED; 


ON OVERFLOW C=0; 


B: BEGIN; 


END ; 


AB-.IJK: ENTRY ( Y , Z ) 


RETURN (EXPRESSION) 



END; 



A 

BC 

15,16, (0,15) 

BRANCH ROUND FOLLOWING CONSTANTS 


DC 

All (1) 

LENGTH OF BCD 


DC 

C'A' 

BCD OF ENTRY POINT 

SIZDSA 

DC 

F' SIZE OF DSA* 


STATIC 

DC 

A (STATIC CONTROL 

ADDRESS OF STATIC INTERNAL CONTROL SECTION 



SECTION) 

(ONLY COMPILED FOR EXTERNAL AND CN PROLOGUES) 


STM 

14,11,12, (13) 

SAVE STANDARD REGISTERS IN SAVE AREA OF 


* 


CALLER'S DSA 


LR 

10,15 

SET UP FIRST PROLOGUE BASE 


BAL 

8 , GETDSA (0,10) 

CALL ROUTINE TO GET DSA 


MVI 

SWITCH (13) , X'Xl' 

INSERT RETURN (EXPRESSION) SWITCH 

* 



(ONLY COMPILED IF THERE IS A RETURN (EXP) 

* 



AND THE ENTRY LABELS HAVE DIFFERENT DATA 

* 



ATTRIBUTES) 


BC 

15,C0PRAM1 (0,10) 

BRANCH TO COPY OVER PARAMETERS 
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t I 

BC 

15,10(0,15) 

1 

DC 

AL1 (1) 

1 

DC 

C'l* 

| AD PRIM 

DC 

A (A) 

I 

STM 

14,11,12(13) 

I * 


L 

10, ADPRIM! (0,15) 


LA 

8 , IP (0 , 10) 

| GETDSA 

1 M 8 

L 

11 , STATIC (0 , 10) 


L 

0, SIZDSA(0, 10) 


L 

15,32, (0,11) 

1 * 

| * 


EALR 

14,15 


LR 

14,13 


LA 

o 

-j 

o 

o 


SR 

15,15 

LOOP 

A 

14,0(0,11) 


ST 

14 , ADVEC+4 (15,13) 


LA 

15,4(0,15) 


BCT 

0 , LOOP (0,10) 


BCR 

15,8 

IP 

MVI 

SWITCH (13) , X ' X2 ' 

CO PRAM’ 1 

L 

14,0(0,1) 


ST 

14 ,X (0 , 13) 


L 

14,4 (0,1) 


LA 

0,10(0,0) 


SR 

14,0 


LH 

14,0(0,14) 


ST 

14 , Y (0 , 13 ) 


L 

14,8(0,1) 


ST 

14 , TARGET (0,13) 


L 

10, A. . . A(0,11) 

* 


BAL 

8 , COMMON (0,10) 

* 

ECR 

15,10 

* 

COMMON 

.MVI 

96 (13) , X* 80 ' 

* 


BALR 

10,0 


LA 

9 , ADDAREA (0,13) 

* 


ST 

9 , ADVEC (0,13) 


BRANCH ROUND FOLLOWING CONSTANTS 

LENGTh OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE ADDRESS 

SAVE STANDARD REGISTERS IN SAVE AREA OF 

CALLER’S DSA 

SET UP FIRST PROLOGUE EASE 
SET RETURN REGISTER 

Sr,T UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PRCLOGUES) 

GR0=SIZE OF DSA 

LOAD GR15 WITH ENTRY POINT OF I HE SAD A 

(UNLESS DSA IS IN STATIC, WHEN ENTRY POINT OF 

COMPILER'S 'GET DSA' ROUTINE WILL BE LOADED) 

CALL ROUTINE TO GET A NEW DSA 

POINT GR14 AT NEW DSA 

SET LOOPING VALUE = 7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 

BUMP INDEX REGISTER 

BRANCH ON RETURN REGISTER 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 

POINT GR14 AT PSEUDO-REGISTER OFFSET OF 

ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 
FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO THE APPARENT ENTRY POINT 
FOR A 

SET DSA TASKING FLAG ( ONLY COMPILED 
IF TASKING IN COMPILATION) 

SET UP COMMON PROLOGUE BASE 

SET GI<9 TO POINT TO ADDRESSING AREA 

AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 


* * * * * 
* 

* 


* 


* 


* 


* 

* ** ** 


THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 

L 14 , PR. . . A ( 1 2 ) LOAD GR14 WITH THE CURRENT' DISPLAY 

VALUE FOR A 

ST 14,92(0,13) STORE IN DISPLAY UPDATE IN DSA 

LA 14 , PR. . .A (12) 

SR 14,12 GR14 = OFFSET OF DISPLAY PSEUDO-REGISTER 

ST 14,88(0,13) STORE IN DISPLAY UPDATE IN DSA 


* INITIALIZE ON SLOTS (IF ANY) 

MVI 0(13), X'8F' IDENTIFY DSA. 


* COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 

* CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
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* SKELETON FOR A REAL DOPE VECTOR) , AND RELOCATE THE ADDRESSES WITH THE 

* ADDRESS OF THE DSA FOP THOSE DOPE VECTORS REFERRING TO VARIABLES 

* IN THE DSA. 


* FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 

* PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 

* GENERATED 


VDA1 

* 


SR 

SR 


7,7 

0,0 


CLEAR STORAGE ACCUMULATOR AC1 
CLEAR SECONDARY DOPE VECTOR STORAGE 
ACCUMULATOR AC2 


FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODE IS 
GENERATED (BETWEEN LABELS VAR1 AND VAR2) . 


VAR1 

* 

* 

* 

* 

* 

* 

VAR 2 


* 

VDA2 


AB 


* 

* 

IJK 

PROBAS 

I 

I 

I * 

I 

COPRAM 2 


EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 
STORE RESULTS IN DOPE VECTOR IN DSA. 

ALIGN ACCUMULATOR ACl ON CORRECT BOUNDARY FOR VARIABLE 

BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 

IS DIMENSIONED AND VARYING). 

RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 
VDA. 

BUMP ACCUMULATOR ACl BY SIZE OF STORAGE REQUIRED FOR VARIABLE 


AR 

0,7 

ADD ACl AND AC2 

L 

15,36(0,11) 

LOAD GR15 WITH ENTRY POINT IHESAD3 

BALR 

14,15 

GET VDA 

LA 

1, 8(0,1) 

BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 

AR 

7,1 

POINT GR7 AT FIRST SECONDARY LOPE VECTOR. 

L 

14, DV. . VAR (0,13) 

FOR EACH VARIABLE IN REGION, RELOCATE 

AR 

14,1 

ADDRESS IN DOPE VECTOR. 

ST 

1 4 , DV . . VAR (0,13) 


FOR 

EACH DIMENSIONED VARYING 

ITEM IN REGION, INITIALIZE 

SECONDARY DOPE VECTORS. 


LA 

10 , PR0CBA3E 

SET UP PROCEDURE BASE 

CODE (IF ANY) TO SET UP SOME ADDRESSING M£i 
ADVANCE FOR USE IN PROCEDURE 

BCR 

15,8 

RETURN FROM COMMON PROLOGUE. 

CNOP 

0,4 


BC 

15,8(0,15) 

BRANCH ROUND BCD OF ENTRY POINT 

DC 

AL1 (2) 


DC 

C'AB' 


STM 

14,11,12 (13) 

SAVE REGISTERS IN CALLER'S SAVE AREA 

L 

10, PROBAS (0, 15) 

SET UP FIRST PROLOGUE BASE 

BAL 

8 ,GETDSA (10) 

BRANCH AND LINK TO GET DSA AND TO SET 

UP ADDRESSING VECTOR 

MVI 

SWITCH (13) , X ' X3 ' 

SET U? RETURN (EXP) SWITCH IF THERE IS 
RETURN (EXP) AND DATA ATTRIBUTES OF 

ENTRY LABELS DIFFER 

BC 

15,COPRAM2 (0,8) 

BRANCH TO COPY OVER PARAMETERS 

BC 

15,12(0,15) 

BRANCH ROUND FOLLOWING CONSTANTS 

DC 

AL1 (3) 

LENGTH OF ECD 

DC 

C' IJK' 

BCD OF ENTRY POINT 

DC 

A (A) 

FIRST PROLOGUE BASE 

STM 

14,11,12(13) 

SAVE REGISTERS IN CALLFR'S SAVE AREA 

L 

10, PROBAS (0,15) 

SET UP FIRST PROLOGUE PASS 

BAL 

8 , GETDSA (0,10) 

BRANCH TO GET DSA AND SET UP 

ADDRESSING VECTOR 

MVI 

SWITCH (13) , X'X4 ' 

SET RETURN (EXP) SWITCH 

L 

14,0(0,1) 

PICK UP FIRST ARGUMENT ADDRESS 

LA 

0,10(0,0) 



IN 
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SR 

14,0 


LH 

14,0(0,14) 

PICK UP PSEUDO-REGISTER OFFSET OF 

ST 

14 , Y (0 ,13) 

ARGUMENT AND STORE IN DSA. 

L 

14,4 (0,1) 

PICK UP ADDRESS OF SECOND ARGUMENT 

ST 

14, Z (0,13) 

AND STORE IN Z 

L 

14,8(0,1) 

PICK UP ADDRESS OF TARGET FIELD 

ST 

14, TARGET (0, 13) 

AND STORE IN DSA 

L 

10, A. . . A (0 , 11) 

LOAD GR10 WITH ADDRESS OF FIRST BYTE 
OF PROCEDURE 

BAL 

8, COMMON (0,10) 

BRANCH AND LINK TO COMMON PROLOGUE 

BC 

15, AE. . . AB (0,10) 

BRANCH TO APPARENT ENTRY POINT AB 

THIS 

IS THE APPARENT ENTRY 

POINT OF A. 


* THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILFD I OR ALL 

* ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 


STM 14,11,12 (13) 
LR 10,15 


SAVE REGISTERS 
SET PROLOGUE BASE 


LOOP 


COMMON 

* 

♦ 

ONSTART 


11, STATIC (0,10) 

15,32(0,11) 

0 , SI ZDS A (0,10) 

14.15 
14,13 
0, 7(0,0) 

15.15 
14,0(0,11) 

14 , ADVEC+4 (15,13) 

15,4(0,15) 

0, LOOP (0,10) 

15, COMMON (0,10) 

F'SIZE OF DSA ' 

A (STATIC INTERNAL CONTROL SECTION) 

10,0 


SET UP STATIC INTERNAL DAI A POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 
CALL IHESADA TO GET A DSA 


L 
L 
L 

BALR 
LR 
LA 
SR 
A 
ST 
LA 
BCT 
BC 
DC 
DC 

BALR 

CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS FOR 


SET UP ADDRESSING VECIOR 
DSA 


BRANCH TO INITIALIZE DSA 


IN 


A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 
LA 10, ONSTART 


* 

EPILOGUE FOR AN ON BLOCK 



L 

15 , IHESAFA (0,11) 

LOAD GR15 WITH ENTRY POINT TO EPILOGUE 


BALR 

14,15 

ROUTINE AND BRANCH AND LINK TO IT 

* 

PROLOGUE FOR A BEGIN BLOCK 


B 

LA 

14, BEND 

SET UP RETURN REGISTER 


BALR 

15,0 

SET UP ENTRY POINT ADDRESS 


CNOP 

0,4 



STM 

14,11,12(13) 

SAVE REGISTERS IN CONTAINING BLOCK'S DSA 


BALR 

9,0 

SET UP PROLOGUE BASE 


L 

15,32(0,11) 

LOAD GR15 WITH ENTRY POINT TO IHESADA 


L 

0 , SI ZDSA (0,9) 



BALR 

14,15 

GET A DSA 


LR 

14,13 



LA 

o 

o 

r-- 

o 



SR 

15,15 


LOOP 

A 

14,0 (0,11) 



ST 

14, ADVEC+4 (15, 13) 

SET UP ADDRESSING VECTOR FOR DSA 


LA 

15,4(0,15) 



BCT 

0 , LOOP (0,9) 



BC 

15, COMMON (0,9) 



DC 

F'SIZE OF DSA' 



LA 

9 , ADDAREA (0,13) 

SET GRG TO POINT TO ADDRESSING AREA 
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ST 9, ADVEC (0, 13) AT END OF DSA AND STORE IN ADDRESSING 

* VECTOR 

| * THE CODE GENERATED HERE IS THE SAME AS THAT FOR A PROCEDURE PROLOGUE 

EXCEPT THAT A DIFFERENT CODE BYTE IS MOVED TO THE FIRST BYTE OF THE 

* DSA; GRl 0 IS NOT RESET; AND THE BCR 15 r 8 IS NOT GENERATED. 


| * EPILOGUE OF A BEGIN BLOCK 

L 15 , IHESAFA LOAD GR15 WITH ENTRY POINT OF 

BALR 14,15 EPILOGUING ROUTINE AND CALL IT 

BEND 


* RETURN (EXP) STATEMENT EXAMINES THE LOCATION 'SWITCH' I.N THE DSA 

* SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 

* THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 

* THE TARGET FIELD FOR WHICH THE LOCATION 'TARGET', IN THE. DSA, 

* POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 

* OR THE STORAGE. ROUTINE IHESAFA IS THEN INVOKED. 

* END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 

L 15, IHESAFA 

BALR 14,15 


I DSA OP TI MIZATIO N 


In compilations specifying OPT=l, if a 
PROCEDURE or BEGIN block has a DSA wnich 
requires less than 512 bytes of storage, 
such storage may, under certain conditions, 
be obtained from STATIC storage or from 
library workspace. To obtain a STATIC DSA, 
the block must satisfy these conditions: 

1. The block must not be re-entrant or 
recursive 

2. The block must not be nested (at any 
depth) within an ON block 

3. The block must not have the MAIN or 
TASK options 

A block which is ineligible for a STATIC 
DSA, and whose DSA will never be active 
when any new DSA. is required, is allocated 
its DSA from library workspace. 

Each block requiring a DSA either in 
STATIC or in library workspace calls one of 
two compiled subroutines, instead of IHE- 
SAD, to allocate the storage. Either or 
both subroutines, if required, are compiled 
onto the end of the program, and are 
prefixed by the comments 'STATIC PROLOGUE 
SUBROUTINE' and 'DYNAMIC PROLOGUE 
subroutine' respectively. Entry may be 
made to the STATIC prologue subroutine at 
one of several points. 

Any block using one of these prologue 
subroutines will also use a compiled Epilo- 
gue subroutine, which will be called for 
the END statement of the block, or for a 
RETURN statement without an expression. 


(The same Epilogue subroutine serves both 
STATIC and library workspace DSAs.) If 
there is any core to be freed, the Epilogue 
subroutine will call IHESAFA. The Epilogue 
subroutine is also compiled onto the end of 
the program, and always immediately pre- 
cedes the STATIC Prologue subroutine if 
this is present. 

The address of the Dynamic Prologue 
subroutine and the Epilogue subroutine are 
placed in the STATIC internal control sec- 
tion, at offsets 40 and 48 from the start 
respectively. Since the STATIC Prologue 
subroutine always follows the Epilogue suo- 
routine, which is of fixed length, a third 
address slct is not required for it. 

Listing s of t he Dy nam i c a n d Static Pro - 
logue and t he Epi l ogu e subro ut ines 


* DYNAMIC PROLOGUE SUBROUTINE 


L 5 ,PR. . IHEQLWF (12) 

LTR 5,5 

BC 8,90(15) 

L 6 , PR. . IHEQINV (12) 

LTR 6 , 6 

EC 4,90(15) 

LR 13,5 

SR 2,2 

L 3 , PR . . IHEQSLA (12) 

ST 13, PR. .IHEQSLA (12) 

ST 3,4(13) 

TM 0 ( 3 ) , X ' 80 ' 

EC 1,52(15) 

L 3,4(3) 

E 36(15) 

ST 13,8(3) 

L 4, PR. .IHEQINV (12) 

LA 4,1(4) 

ST 4, PR. .IHEQINV (12) 
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ST 

4, 84(13) 

1 L 

15, A. . I HE SAP A 

ST 

2,80(13) 

| BR 

15 

ST 

2,8 (13) 



MV I. 

76(13) ,X'00' 



ST 

2 ,96 (13) 

| * END 

SUBROUTINE 

BR 

14 



L 

15,32 (11) 

1 * STATIC PROLOGUE SUBROUTINE 

BR 

15 

1 L 

4, PR. . IHEQINV (12) 

END 

SUBROUTINE 

LTR 

4,4 



BC 

11,86 (15) 

EPILOGUE SUBROUTINE 

1 L 

7, PR. . IHEQLWC (12) 



j MV C 

8 0(4, 3), 80(7) 

TM 

1 (13) f X* 80 ' 

LA 

4,1(4) 

BC 

8,60(15) 

j ST 

4, PR. . IHEQINV (12) 

L 

2,80(13) 

| ST 

4,84(3) 

LTR 

2,2 

| MV I 

76(3) ,X'00' 

BC 

7,60(15) 

j ST 

3,8(13) 

C 

13, PR. . IHEQSLA (12) 

j LR 

13,3 

EC 

7,60(15) 

| L 

3, PR. . IHEQSLA (12) 

L 

13,4(13) 

j ST 

3,4(13) 

ST 

13, PR. . IHEQSLA (12) 

| ST 

13, PR. . IHEQSLA (12) 

TM 

0 (13) ,X' 80' 

j SR 

2,2 

BC 

1,50(15) 

| ST 

2,80(13) 

L 

13,4 (13) 

J ST 

2,8(13) 

B 

34(15) 

| ST 

2,96(13) 

ST 

2,8(13) 

| BR 

14 

LM 

14,11,12(13) 



BR 

14 

1 * END 

SUBROUTINE 
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APPENDIX Is DIAGNOSTIC MESSAGES 


The messages produced by the PL/I (F) 
Compiler are explained in the publication 

IBM System/ 3 60 Oper ating S ystem, PL/I (F) 

Program m er* s Guide , Form C28-6594. The 

following table associates a message number 
with the particular phase and module in 
which the corresponding message is generat- 
ed. 


Message 

Number 

Logical Phase 

Module 

IEM0001I 

Read 

In 

CA 

IEM0002I 

Read 

In 

CA 

I EM 00 031 

Read 

In 

CA , CP 

IEM0004I 

Read 

In 

CA 

IEM0005I 

Read 

In 

CA, CL 

IEM0006I 

Read 

In 

CA 

IEM0007I 

Read 

In 

CA 

IEM0008I 

Read 

In 

CA 

IEM0009I 

Read 

In 

CA 

IEM0010I 

Read 

In 

CA 

IEM0011I 

Read 

In 

CA 

IEM0012I 

Read 

In 

CA 

IEM0013I 

Read 

In 

CA 

IEM0014I 

Read 

In 

CA 

I EM 00151 

Read 

In 

CA 

IEM0Q16I 

Read 

In 

CA 

IEM0017I 

Read 

In 

CA 

I EM 00181 

Read 

In 

CA 

I EM 00191 

Read 

In 

CA 

IEM0020I 

Read 

In 

CA 

IEM0021I 

Read 

In 

CA 

I EM 00221 

Read 

In 

CA 

IEM0023I 

Read 

In 

CA 

IEM0024I 

Read 

In 

CA 

IEM0025I 

Read 

In 

CA 

IEM0026I 

Read 

In 

CA 

I EM 00271 

Read 

In 

CA 

IEM0028I 

Read 

In 

CG 

IEM0029I 

Read 

In 

CA 

IEM0031I 

Read 

In 

CA , CL , CT 

IEM0Q32I 

Read 

In 

CC 

IEM0033I 

Read 

In 

cc 

IEM0035I 

Read 

In 

cc 

I EM 00 371 

Read 

In 

cc 

IEM0038I 

Read 

In 

cc 

IEM0039I 

Read 

In 

cc 

IEM0040I 

Read 

In 

cc 

IEM0043I 

Read 

In 

cc 

IEM0044I 

Read 

In 

cc 

IEM0045I 

Read 

In 

cc 

IEM0046I 

Read 

In 

cc 

I EM 004 81 

Read 

In 

CG 

IEM0050I 

Read 

In 

CL, CP 

IEM0051I 

Read 

In 

CL, CP 

I EM 00521 

Read 

In 

CO 

IEM0053I 

Read 

In 

CO 

IEM0054I 

Read 

In 

CO 

IEM0055I 

Read 

In 

CP 

IEM0057I 

Read 

In 

cc 

IEM0058I 

Read 

In 

cc 


I EM 00 591 

Read 

In 

CP 


IEM0060I 

Read 

In 

CP 


I EM 00611 

Read 

In 

CP 


I EM 006 31 

Read 

In 

CO 


I EM 006 41 

Read 

In 

CC 


IEM0066I 

Read 

In 

CG 


IEM0067I 

Read 

In 

CL 


I EM 006 91 

Read 

In 

CG 


IEM0070I 

Read 

In 

CG 


IEM0071I 

Read 

In 

CG 


I EM 00721 

Read 

In 

CG 


I EM 00741 

Read 

In 

CG 


IEM0075I 

Read 

In 

CG 


IEM0076I 

Re ad 

In 

CG 


I EM 00771 

Read 

In 

CG 


IEM0078I 

Read 

In 

CG 


IEM0080I 

Read 

In 

CG 


I EM 00811 

Read 

In 

CG 


IEM0082I 

Read 

In 

CG 


IEM0083I 

Read 

In 

CG 


IEM0084I 

Read 

m 

CG 


IEM0085I 

Rea d 

In 

Cl 


IEM0090I 

Read 

In 

Cl 


IEM0094I 

Read 

In 

Cl 


I EM 00951 

Read 

In 

Cl 


IEM0096I 

Read 

In 

CG, 

Cl 

I EM 00971 

Read 

In 

Cl 


IEM0099I 

Read 

In 

Cl 


IEM0100I 

Read 

m 

Cl 


IEM0101I 

Read 

In 

CM 


IEM0102I 

Read 

In 

Cl 


IEM0103I 

Read 

In 

Cl 


IEM0104I 

Read 

In 

CC 


I EM 01 051 

Read 

m 

cc, 

CG 

IEM0106I 

Read 

In 

Cl, 

cv 

I EM 01 071 

Read 

In 

Cl 


IEM0108I 

Read 

In 

Cl 


I EM 01091 

Re a d 

In 

C'G, 

Cl 

I EM 0 1 1 0 1 

Read 

In 

Cl 


IEM01111 

Read 

m 

Cl 


IEM0112I 

Read 

In 

Cl 


IEM0113I 

Read 

In 

CG, 

CM 

IEM0114I 

Read 

In 

Cl 


IEM0115I 

Read 

In 

CL 


IEM0116I 

Read 

m 

Cl 


IEM0118I 

Read 

In 

CL 


IEM0128I 

Read 

In 

CO 


I EM 01 291 

Read 

In 

CL 


ISM0130I 

Read 

In 

CL 


IEM0131I 

Read 

In 

CO 


IEM0132I 

Read 

In 

CO 


I EM 01331 

Read 

In 

CO 


IEM0134I 

Read 

In 

CP 


I EM 01351 

Read 

In 

CP 


IEM0136I 

Read 

In 

CO 


I EM 01 381 

Read 

In 

CP 


IEM0139I 

Read 

In 

CP 


I EM 01411 

Read 

In 

CP 


IEM0142I 

Read 

In 

CO 


I EM 014 31 

Read 

In 

CO 


I EM 01 441 

Read 

In 

CO 


IEM0145I 

Read 

In 

CO 
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IEM0146I 

Read In 

CO 

I EM 05151 

Dictionary 

EG 

IEM0147I 

Read In 

CO 

I EM 05161 

Dictionary 

EG 

IEM0149I 

Read In 

CL, CM 

IEM0517I 

Dictionary 

EG 

I EM 01501 

Read In 

CL 

I EM 05181 

Dictionary 

EG 

IEM0151I 

Read In 

CO 

IEM0519I 

Dictionary 

EG 

IEM0152I 

Read In 

CO 

I EM 05201 

Dictionary 

EG 

IEM0153I 

Read In 

CO 

I EM 05211 

Dictionary 

EG 

IEM0154I 

Read In 

CA 

IEM0522I 

Dictionary 

EG 

IEM0158I 

Read In 

CO 

I EM 052 31 

Dictionary 

EG 

IEM0159I 

Read In 

CO 

I EM 05 2 41 

Dictionary 

EH 

IEM0163I 

Read In 

CT 

I EM 05251 

Dictionary 

El 

IEM0164I 

Read In 

CS , CT 

IEM0527I 

Dictionary 

EJ 

IEM0166I 

Read In 

CL 

IEM0528I 

Dictionary 

EH, El , EJ 

IEM0172I 

Read In 

CL 

IEM0529I 

Dictionary 

El 

IEM0180I 

Read In 

CT 

I EM 05301 

Dictionary 

El 

IEM0181I 

Read In 

CL 

IEM0531I 

Dictionary 

El 

IEM0182I 

Read In 

CL, CS , 

I EM 05 321 

Dictionary 

El 



CT , CV 

IEM0533I 

Dictionary 

El 

IEM0185I 

Read In 

CT 

IEM0534I 

Dictionary 

El 

IEM0187I 

Read In 

CT 

IEM0535I 

Dictionary 

El 

IEM0191I 

Read In 

CT 

I EM 05 361 

Dictionary 

El 

IEM0193I 

Read In 

CT 

I EM 0 5 371 

Dictionary 

El 

I EM 01941 

Read In 

CT 

I EM 05 381 

Dictionary 

EJ 

IEM0195I 

Read In 

CT 

I EM 05391 

Dictionary 

EJ 

IEM0198I 

Read In 

CT 

I EM 054 01 

Dictionary 

EJ 

I EM 02021 

Read In 

CL 

IEM0541I 

Dictionary 

EJ 

IEM0207I 

Read In 

CG 

I EM 05 4 21 

Dictionary 

EJ 

IEM0208I 

Read In 

CG 

IEM0543I 

Dictionary 

EL , £jR , EM 

IEM0209I 

Read In 

CC 

I EM 054 41 

Dictionary 

EL., EK , EM 

I EM 02111 

Read In 

CL 

I EM 054 51 

Dictionary 

EL , EK , EM 

IEM0212I 

Read In 

CP 

IEM0546I 

Dictionary 

EL , EK , EM 

IEM0213I 

Read In 

CP 

I EM 05471 

Dictionary 

EL, EK , EM 

IEM0214I 

Read In 

CP 

I EM 054 81 

Dictionary 

EL, EK, EM 

IEM0216I 

Read In 

CP 

I EM 05 4 91 

Dictionary 

EL, EK, EM 

IEM0217I 

Read In 

CP 

I EM 05501 

Dictionary 

EL, EK , EM 

I EM 02201 

Read In 

CT 

I EM 0 5 5 1 1 

Dictionary 

EK, EL , EM 

IEM0221I 

Read In 

CT 

IEM0552I 

Dictionary 

EL, £K, EM 

IEM0222I 

Read In 

CT 

I EM 0 55 31 

Dictionary 

EL, EK , EM 

IEM0223I 

Read In 

CT 

I EM 05 541 

Dictionary 

EL , EK , EM 

IEM0224I 

Read In 

CT 

I EM 05551 

Dictionary- 

EL, EK , EM 

IEM0225I 

Read In 

CT 

IEM0556I 

Dictionary 

EL , EK , r M 

IEM0226I 

Read In 

CT 

I EM 05571 

Dictionary 

EL , EK , EM 

IEM0227I 

Read In 

CT 

IEM0558I 

Dictionary 

EL , EK , EM 

IEM0228I 

Read In 

CT 

IEM0559I 

Dictionary 

EL,ZK,£.M 

IEM0229I 

Read In 

CT 

I EM 05 601 

Dictionary 

EL, EK , EM 

IEM0230I 

Read In 

CS , CT 

IEM0561I 

Dictionary 

EL , EK , EM 

IEM0231I 

Read In 

CT 

IEM0562I 

Dictionary 

EK , EL , EM, 

IEM0232I 

Read In 

CT 

IEM0563I 

Dictionary 

EK, EL, EM 

IEM0233I 

Read In 

CV 

IEM0564I 

Dictionary 

EK, EL , EM 

IEM0235I 

Read In 

CS 

I EM 05651 

Dictionary 

EK , EL , EM 

I EM 02361 

Read In 

CS 

IEM0566I 

Dictionary 

EK , EI. ,£M 

IEM0237I 

Read In 

CS 

1EM0567I 

Dictionary 

EP 

IEM0238I 

Read In 

CV 

IEM0568I 

Dictionary 

EP 

IEM0239I 

Read In 

CS 

IEM0569I 

Dictionary 

EP 

IEM0240I 

Read In 

CV 

IEM0570I 

Dictionary 

EP 

IEM0241I 

Read In 

CV 

IEM0571I 

Dictionary 

EK 

IEM0242I 

Read In 

CV 

I EM 05721 

Dictionary 

EL 

IEM0243I 

Read In 

CV 

I EM 05731 

Dictionary 

EL 

IEM0244I 

Read In 

CV 

IEM0589I 

Dictionary 

EW 

IEM0245I 

Read In 

CV 

IEM0590I 

Dictionary 

SW 

IEM0247I 

Read In 

cw 

IEM0591I 

Dictionary 

EW 

IEM0254I 

Read In 

CC 

I EM 059 21 

Dictionary 

EW 

IEM0255I 

Read In 

CG 

I EM 059 31 

Dictionary 

EW 

IEK0510I 

Dictionary 

EH 

IEM0594I 

Dictionary 

EW 

IEM0511I 

Dictionary 

EH 

I EM 05951 

Dictionary 

EW 

I EM 05121 

Dictionary 

EH 

IEM0596I 

Dictionary 

EW 

IEM0513I 

Dictionary 

EG 

I EM 05971 

Dictionary 

EW 

IEM0514I 

Dictionary 

EG 

IEM0598I 

Dictionary 

EW 
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I EM 059 91 

Dictionary 

EW 

| I EM 07 0 51 

Dictionary 

FI 

IEM0602I 

Dictionary 

FV, FW 

| I EM 070 61 

Dictionary 

FI 

I EM 06031 

Dictionary 

FV, FW 

j UEM0707I 

Dictionary 

FI 

I EM 06 041 

Dictionary 

FV , FW 

IEM0708I 

Dictionary 

FK 

IEM06052 

Dictionary 

FV , FW 

I EM. 07 091 

Dictionary 

FK 

I EM 0 6 0 6 1 

Dictionary 

FV, FW 

1 EM 07101 

Dictionary 

FK 

IEM0607I 

Dictionary 

FV , FW 

I EM 07111 

Dictionary 

FK 

IEM0608I 

Dictionary 

FV , FW 

I EM 07 1.21 

Dictionary 

FK 

I EM 060 91 

Dictionary 

FV , FW 

| IEM3713I 

Dictionary 

FK 

I EM 06101 

Dictionary 

FV, FW 

I EM 07151 

Dictionary 

EJ 

I EM 06. Ill 

Dictionary 

FV , FW 

IEM0713I 

Dictionary 

FO 

IEM0612I 

Dictionary 

FV 

1 EM 07 191 

Dictionary 

FO 

I EM 06231 

Dictionary 

FV, FW 

I EM 07 2 01 

Dictionary 

FO 

I EM 06241 

Dictionary 

FV , FW 

IEM0721I 

Dictionary 

FO 

I EM 06251 

Dictionary 

FV, FW 

I EM 07 2 21 

Dictionary 

FO 

I EM 06261 

Dictionary 

FV , FW 

IEM0723I 

Dictionary 

FO 

IEM06271 

Dictionary 

F V , FW 

I EM 07 2 41 

Dictionary 

FO 

IEM0628I 

Dictionary 

FV, FW 

I EM 07 251 

Dictionary 

FO 

I EM 06 291 

Dictionary 

FV , FW 

IEM0726I 

Dictionary 

FO 

I EM 06 301 

Dictionary 

FV , FW 

I EM 07 271 

Dictionary 

FO 

I EM 06 311 

Dictionary 

FV , FW 

I EM 07 281 

Dictionary 

FO 

IEM0632I 

Dictionary 

FV,FW 

I EM 07 291 

Dictionary 

FO 

IEM0633I 

Dictionary 

EY 

I EM 07 3 01 

Dictionary 

FQ 

I EM 06 341 

Dictionary 

EY 

I EM 07 311 

Di ctionary 

FQ 

IEM0636I 

Dictionary 

EY 

I EM 07321 

Dictionary 

FQ 

I EM 06371 

Dictionary 

EY 

I EM 07 331 

Dictionary 

FQ 

I EM 06 3 81 

Dictionary 

EY 

I EM 07 341 

Dictionary 

FQ 

I EM 06 4 01 

Dictionary 

EY 

I EM 07 3 51 

Dictionary 

FQ 

IEM0641I 

Dictionary 

EY 

IEM0736I 

Dictionary 

FQ 

I EM 06 4 21 

Dictionary 

EY 

I EM 07 371 

Dictionary 

FQ 

I EM 064 31 

Dictionary 

EY 

IEM0739I 

Dictionary 

FQ 

IEM0644I 

Dictionary 

EY 

I EMi 07 4 01 

Dictionary 

FQ 

I EM 064 51 

Dictionary 

EY 

I EM 07 411 

Dictionary 

FQ 

IEM0646I 

Dictionary 

EY 

I EM 07 4 21 

Dictionary 

FQ 

I EM 06471 

Dictionary 

EY 

I EM 07 4 51 

Dictionary 

FQ 

IEM0652I 

Dictionary 

FE 

I EM 07 4 61 

Dictionary 

FQ 

IEM0653I 

Dictionary 

FE 

IEM0747I 

Dictionary 

FQ 

I EM 06541 

Dictionary 

FE 

IEM0748I 

Dictionary 

FQ 

I EM 06551 

Dictionary 

FE 

I EM 07 4 91 

Dictionary 

FQ 

I EM 06561 

Dictionary 

FE 

I EM 07501 

Dictionary 

FQ 

IEM0657I 

Dictionary 

FE 

I EM 07 511 

Dictionary 

FQ 

IEM0658I 

Dictionary 

FE 

I EM 07 521 

Dictionary 

FQ 

IEM0673I 

Dictionary- 

FE 

I EM 07 541 

Dictionary 

FQ 

I EM 067 41 

Dictionary 

FF 

I EM 07 5 51 

Dictionary 

FQ 

IEM0675I 

Dictionary 

FF 

IEM0756I 

Dictionary 

FQ 

IEM0676I 

Dictionary 

FF 

I EM. 07 3 81 

Dictionary 

FQ 

IEM0677I 

Dictionary 

FF. 

IEM0759I 

Dictionary 

FQ 

I EM 0 68 31 

Dictionary 

FI 

I EM 07 601 

Dictionary 

FQ 

I EM 06 841 

Dictionary 

FI 

I EM 07 611 

Dictionary 

FQ 

IEM0685I 

Dictionary 

FI 

I EM 07 6 21 

Dictionary 

FQ 

T EM 06 861 

Dictionary 

FI 

j I EM 07 6 91 

Pretranslator 

GB 

I EM 06 871 

Dictionary 

FI 

| I EM 077 01 

Pretranslator 

GB 

I EM 06 8 81 

Dictionary 

FI 

j IEM0771I 

Pretranslator 

GB 

IEM0689I 

Dictionary 

FI 

j i EM 077 81 

Pretranslator 

GB 

I EM 06 9 01 

Dictionary 

FI 

j IEM0779I 

Pretranslator 

GB 

IEM0691I 

Dictionary 

FI 

j IEM0780I 

Pretranslator 

GB 

IEM0692I 

Dictionary 

FI 

j I EM. 07 811 

Pretranslator 

GB 

IEM0693I 

Dictionary 

FI 

j 1EM0782I 

Pretranslator 

GE 

IEH0694I 

Dictionary 

FI 

I EM 07861 

Pre translator 

GK 

IEM0695I 

Dictionary 

FI 

I EM 07 871 

Pre translator 

GK 

I EM 06961 

Dictionary 

FI 

IEM0790I 

Pretranslator 

GK 

I EM 0 6971 

Dictionary 

FI 

IEM0791I 

Pretranslator 

GK 

IEM0699I 

Dictionary 

FI 

I EM 07921 

Pretranslator 

G P / GQ t G.R 

I EM 07 001 

Dictionary 

FI 

IEM0793I 

Pretranslator 

GP f GQ, G.R 

IEM0701I 

Dictionary 

FI 

I EM 07 9 41 

Pretranslator 

GP,GQ,GR 

I EM 07021 

Dictionary 

FI 

IEM0795I 

Pretranslator 

GP/GQfGR 

IEM0703I 

Dictionary 

FI 

I EMi 07 961 

Pretranslator 

GP f GQ , GK 

I EM 07 0 41 

Dictionary 

FI 

I EM 07 971 

Pretranslator 

GP , GQ r G A 
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IEM0798I 
I EM 07 9 91 
I EM 0 80 01 
I EM 08011 
IEM08021 
IEM0803I 
IEM08041 
IEM0805I 
I EM 0 8 061 
I EM 08 071 
I EM 0 8161 
IEM0817I 
IEM0818I 
IEM0819I 
I EM 082 01 
I EM 0 8 211 
IEM0823I 
I EM 0 8241 
I EM 0 8 2 51 
| IEM0826I 
IEM0832I 
I EM 08 3 31 
IEM08341 
I EM 08 351 
I EM 0 8 361 
I Eh 0 8 3 7 1 
IEM084SI 
I EM 084 91 
IEM0850I 
IEM0851I 
IEM0852I 
IEM0853I 
I EM 08641 
I EM 0 8651 
I EM 08661 
I EM 08671 
IEM0868I 
I EM 0 8 6 91 
IEM0870I 
I EM 08711 
IEM0872I 
IEM0873I 
IEM0874I 
I EM 087 51 
IEM0876I 
I EM 0 8771 
IEM0878I 
IEM0879I 
I EM 088 01 
IEM0881I 
I EM 08821 
I EM 08 961 
IEM0897I 
IEM0898I 
IEM0899I 
I EM 090 01 
I EM 09011 
I EM 09 021 
I EM 09031 
I EM 09061 
I EM 09 071 
I EM 10241 
I EH 10251 
I EM 10261 
IEM1027I 
IEM1028I 
I EM 10291 
IEM1040I 


Pretranslator 

GP,GQ,GR 

IEM1051I 

Translator 

IM 

Pretranslator 

GP , GQ , GR 

I Eh 10561 

Translator 

IM 

Pretranslator 

GP, GQ, GR 

I Eh 10571 

Translator 

IM 

Pretranslator 

GP f GQ,GR 

I EMI 0581 

Translator 

IM 

Pre translator 

GP , GQ / GR 

I Eh 10591 

Translator 

IM 

Pretranslator 

GP, GQ , GR 

IEM1060I 

Trans] ator 

IM 

Pretranslator 

GP, GQ, GR 

IEM1061I 

Translator 

IM 

Pretranslator 

GP , (3Q , GR 

I EM 10621 

Translator 

IM 

Pretranslator 

GP , GQ , G R 

I EM 10631 

Translator 

IM 

Pretranslator 

GP , GQ , GR 

I EK 10641 

Translator 

IM 

Pretranslator 

GU,GV 

I EMI 06 51 

Translator 

IM 

Pretranslator 

GU, GV 

I EM 10661 

Translator 

IM 

Pretranslator 

GU, GV 

I. EMI 06 71 

Translator 

IM 

Pretranslator 

GU , GV 

I EM 10681 

Translator 

IM 

Pretranslator 

GU , GV 

IEM1071I 

Translator 

IM 

Pretranslator 

GU , GV 

IEM1072I 

Translator 

IM 

Pretranslator 

GU , GV 

I EM 10731 

Translator 

IM 

Pretranslator 

GU 

IEM1074I 

Translator 

IM 

Pretranslator 

GU , GV 

| IEM1076I 

Translator 

JD 

Pretranslator 

GU , GV 

| IEM1082I 

Translator 

IX 

Pretranslator 

iiF, HG 

I EM 10881 

Aggregates 

JI< 

Pre translator 

HF, HG 

I EMI 08 91 

Aggregates 

JK 

Pretranslator 

HF, HG 

| 1EM1090I 

Aggregates 

JK 

Pretranslator 

HP', HG 

| I EMI 09 11 

Aggregate Preprocessor 

JI 

Pretranslator 

HF, HG 

j IEM1092I 

Aggregates 

JK 

Pretranslator 

HF, HG 

I EM 11041 

Aggregates 

JP 

Pretranslator 

HF, HG 

IEM1105I 

Aggregates 

JP 

Pretranslator 

HF, HG 

I EM 11 061 

Aggregates 

JP 

Pretranslator 

HF, HG 

I EM 11071 

Aggregates 

JP 

Pretranslator 

HF, HG 

I EM 11081 

Aggregates 

JP 

Pretranslator 

HF, HG 

I EM 1 1 1 0 I 

Aggregates 

JP 

Pretranslator 

HF, HG 

IEM1111I 

Aggregates 

JP 

Pretranslator 

HK, HL 

I EM 11121 

Aggregates 

JP 

Pre translator 

HK, HL 

I EM 11131 

Aggregates 

JP 

Pretranslator 

HK, HL 

IEM1114I 

Aggregates 

JP 

Pretranslator 

HK, HL 

IEM1115I 

Aggregates 

JP 

Pre translator 

HK, HL 

IEM1120I 

Aggregates 

JP 

Pretranslator 

HK, HL 

IEM1121I 

Aggregates 

JP 

Pretranslator 

HK, HL 

I EM 11221 

Aggregates 

JP 

Pretranslator 

HK , HL 

I EMU 2 31 

Pseudo-code 

LD 

Pretranslator 

HK, HL 

I EMU 251 

Pseudo-code 

LD 

Pretranslator 

HK, HL 

1 EMI 2 001 

Pseudo-code 

LA 

Pretranslator 

HK, HL 

IEM1569I 

Pseudo- code 

LG-ON 

Pretranslator 

HK, HL 

IEM1570I 

Pseudo-code 

LG 

Pretranslator 

HK , HL 

I EMI 5 7 11 

Pseudo-code 

LG 

Pretranslator 

HK, HL 

IEM1572I 

Pseudo-code 

LG 

Pretranslator 

HK , HL 

IEM1574I 

Pseudo-code 

LG 

Pretranslator 

HK, HL 

I EM 15751 

Pseudo-code 

LG 

Pretranslator 

HK, HL 

IEM1600I 

Pseudo-code 

LS , LT , LU 

Pretranslator 

HK, HL 

I EM 16011 

Pseudo-code 

LS 

Pretranslator 

HK 

IEM1602I 

Pse udo-code 

LS, LT ,LU 

Pretranslator 

HP 

I EM 16031 

Pseudo- code 

LS , LT , LU 

Pretranslator 

HP 

IEM1604I 

Pseudo-code 

LS , LT , LU 

Pretranslator 

HP 

1EM1605I 

Pseudo-code 

LS , LT , LU 

Pretranslator 

HP 

I EM 16061 

Pseudo-code 

LS , LT , LU 

Pretranslator 

HP 

IEM1607I 

Pseudo- code 

LS , LT , LU 

Pretranslator 

HP 

IEM1608I 

Pseudo-code 

LS , LT , LU 

Pretranslator 

HP 

I EMI 6 091 

Pseudo-code 

LS , LI , LU 

Pre translator 

HP 

I EM 16101 

Pseudo-code 

LW 

Pretranslator 

HP 

I EM 16111 

Pseudo-code 

LW 

Pretranslator 

HP 

I EM 16121 

Pseudo-code 

Lfo 

Translator 

IA 

I EM 16131 

Pseudo-code 

LS , LT , LU 

Translator 

IA 

IEM1614I 

Pseudo-code 

Lb 

Translator 

IA 

| IEM16151 

Pseudo-code 

ME 

Translator 

IA 

| IEM1616I 

Pseudo-code 

ME 

Translator 

IA 

I EM 16171 

Pseudo- code 

MB 

Translator 

IA 

IEM1618I 

Pseudo-code 

MB 

Translator 

IM 

I EM 16191 

Pseudo-code 

MB 
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IEM1620I 

Pseudo-code 

MB 

IEM1812I 

Pseudo-code 

OS 

IEM1621I 

Pseudo-code 

MB 

I EM 18131 

Pseudo-code 

OS 

IEM1622I 

Pseudo-code 

MB , ME 

I EM 18141 

Pseudo-code 

OS 

IEM1623I 

Pseudo-code 

MB 

IEM1815I 

Pseudo-code 

OS 

IEM1624I 

Pseudo-code 

MB 

IEM1316I 

Pseudo-code 

NJ 

IEM1625I 

Pseudo-code 

ME 

I EM 18171 

Pseudo-code 

NJ 

IEM1626I 

Pseudo-code 

ME 

I EM-181 81 

Pseudo-code 

NJ 

IEM1627I 

Pseudo-code 

ME 

I EM 18191 

Pseudo-code 

NJ 

IEM1628I 

Pseudo-code 

ME 

j IEM1820I 

Pseudo-code 

NJ 

IEM1629I 

Pseudo-code 

ME 

| IEM1821I 

Pseudo- code 

NJ 

IEM1630I 

Pseudo-code 

MG, MU 

| I EM 18221 

Pseudo-code 

NJ 

I EMI 6 31 I 

Pseudo-code 

Ml , MJ 

IEM1823I 

Pseudo-code 

NJ 

IEM1632I 

Pseudo-code 

MI , MJ 

I EM 18241 

Pseudo-code 

NM 

IEM1633I 

Pseudo-code 

ME 

IEM1825I 

Pseudo-code 

NG 

IEM1634I 

Pseudo-code 

ME 

IEM1826I 

Pseudo-code 

NG 

IEM1635I 

Pseudo-code 

ME 

IEM1827I 

Pseudo-code 

NG 

IEM1636I 

Pseudo-code 

ME 

IEM1828I 

Pseudo-code 

NG 

IEM1637I 

Pseudo-code 

ME 

IEM1829I 

Pseudo-code 

NG 

IEM1638I 

Pseudo-code 

ME 

IEM1830I 

Pseudo- code 

NG 

IEM1639I 

Pseudo-code 

MF 

IEM1832I 

Pseudo-code 

NM 

IEM1640I 

Pseudo-code 

MM , MM 

I EM 18331 

Pseudo-code 

NM 

IEM1641I 

Pseudo-code 

MM, MN 

I EMI 8 341 

Pseudo-code 

NM 

IEM1642I 

Pseudo-code 

MM, MN 

I EM 18 351 

Pseudo-code 

NM 

IEM1643I 

Pseudo-code 

MM, MN 

I EM 18361 

Pseudo-code 

NM 

IEM1644I 

Pseudo-code 

MM, MN 

I EMI 8 371 

Pseudo-code 

NM 

IEM1645I 

Pseudo-code 

MM, MN 

IEM1838I 

Pseudo-code 

NM 

IEM1648I 

Pseudo-code 

MM, MN 

IEM1839I 

Pseudo-code 

NM 

IEM1649I 

Pseudo-code 

MM, MN 

I EM 18401 

Pseudo- code 

NM 

IEM1650I 

Pseudo-code 

MM, MN 

IEM1841I 

Pseudo-code 

NM 

I EMI 6 511 

Pseudo-code 

MM, MN 

IEM1843I 

Pseudo-code 

NM 

IEM1652I 

Pseudo-code 

MM, MN 

IEM1844I 

Pseudo-code 

NM 

IEM1653I 

Pseudo-code 

MM, MN 

I SMI 8 4 51 

Pseudo-code 

NM 

IEM1654I 

Pseudo-code 

MM , MN 

IEM1846I 

Pseudo-code 

NM 

IEM1655I 

Pseudo-code 

MN 

IEM1847I 

Pseudo-code 

NM 

IEM1656I 

Pseudo-code 

ME 

IEM1848I 

Pseudo-code 

NM 

IEM1657I 

Pseudo-code 

MM 

j I EM 18491 

Constant Conversions 

OS 

I EMI 6 7 01 

Pseudo-code 

MP 

| IEM1850I 

Constant Conversions 

OS 

IEM1671I 

Pseudo-code 

MP 

I EMI 8 6 01 

Pseudo-code 

NU 

IEM1680I 

Pseudo-code 

MS 

IEM1861I 

Pseudo- code 

NU 

IEM1687I 

Pseudo-code 

MS 

IEM1862I 

Pseudc-code 

NU 

IEM1688I 

Pseudo-code 

MS 

IEM1870I 

Pseudo-code 

NU 

IEM1689I 

Pseudo-code 

MS 

IEM1871I 

Pseudo-code 

NU 

IEM1691I 

Pseudo-code 

MS 

IEM1872I 

Pseudo-code 

NU 

IEM1692I 

Pseudo-code 

MS 

IEM1873I 

Pseudo- code 

NU 

IEM1693I 

Pseudo-code 

MS 

I EMI 8741 

Pseudo-code 

NU 

I EMI 7 5 01 

Pseudo-code 

MS 

IEM1875I 

Pseudo- code 

NV 

IEM1751I 

Pseudo-code 

MS 

I EM 23 041 

Storage Allocation 

PD 

IEM1752I 

Pseudo-code 

NA 

I EM 23051 

Storage Allocation 

PD 

IEM1753I 

Pseudo-code 

NA 

I EM 2 3 5 2 1 

Storage Allocation 

PD 

IEM1754I 

Pseudo-code 

NA 

I EM 2 7 001 

Register Allocation 

RF , RG , RH 

IEM1790I 

Pseudo-code 

OG , OM 

I EM 27011 

Register Allocation 

RF , RG, RR 

I EM 17931 

Pseudo-code 

OE 

IEM2702I 

Register Allocation 

RF , RG , RH 

IEM1794I 

Pseudo-code 

OE 

IEM2703I 

Register Allocation 

RF , RG , RH 

IEM1795I 

Pseudo-code 

OE 

IEM2704I 

Register Allocation 

RF, RG , RH 

IEM1796I 

Pseudo-code 

OE 

IEM2705I 

Register Allocation 

RF, RG , RH 

I EM 17971 

Pseudo-code 

OE 

I EM 2 7 061 

Register Allocation 

RF, RG , RH 

IEM1800I 

Pseudo-code 

OS 

IEM2707I 

Register Allocation 

RF , RG , RH 

IEM1801I 

Pseudo-code 

OS 

IEM2708I 

Register Allocation 

RF , RG , Rh 

IEM1802I 

Pseudo-code 

OS 

I EM 27 091 

Register Allocation 

RF , RG , RH 

IEM 1.8031 

Pseudo-code 

OS 

I EM 27101 

Register Allocation 

RF , RG , RH 

IEM1804I 

Pseudo-code 

OS 

IEM2711I 

Register Allocation 

P F , RG , RH 

IEM1805I 

Pseudo-code 

OS 

IEM 27 121 

Register Allocation 

RF , RG , RH 

IEM1806I 

Pseudo-code 

OS 

| I EM 28171 

DCB Generation 

GA 

IEM1807I 

Pseudo-code 

OS 

| IEM2818I 

DCB Generation 

GA 

IEM1808I 

Pseudo-code 

05 

| I EM 28191 

DC'L Generation 

GA 

IEM1809I 

Pseudo-code 

OS 

| I EM 28201 

DCB Generation 

GA. 

IEM18101 

Pseudo-code 

OS 

j I EM 2 8 21 1 

DCB Generation 

GA 

I EM 18111 

Pseudo-code 

OS 

I EM 28 221 

DCB Generation 

GA 
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IEM2823I 

DCB Generation 

GA 

I EM 38 531 

Compiler Control 

AA 

I EM 2 8241 

DCB Generation 

GA 

I EM 38 551 

Compiler control 

AA 

IEM2825I 

DCB Generation 

GA 

I EM 38561 

Compiler Control 

AA 

IEM2826I 

DCB Generation 

GA 

I EM 3 8 571 

Compiler Control 

AA 

IEM2827I 

DCB Generation 

GA 

I EM 38 581. 

Compiler Control 

AA 

IEM2828I 

DCB Generation 

GA 

I EM 38 591 

Compiler Control 

AA 

IEM2833I 

Final Assembly 

TF 

I EIxl 38 601 

Compiler Control 

AA 

IEM2834I 

Final Assembly 

TF 

I EM 38 611 

Compiler Control 

AA 

IEM2835I 

Final Assembly 

IF 

I EM 38 621 

Compiler Control 

AA 

I EM 28 361 

Final Assembly 

TF 

I EM 38 6 31 

Compiler Control 

AA 

I EM 28 371 

Final Assembly 

TF 

I EM 38 6 41 

Compiler Control 

AA 

I EM 28 4 91 

Final Assembly 

TJ 

I EM 38 6 51 

Compiler Control 

AA 

I EM 28521 

Final Assembly- 

TJ 

I EM 38 7 21 

Compiler Control 

AA 

I EM 285 31 

Final Assembly 

TJ 

I EM 38731 

Compiler Control 

AA 

IEM2854I 

Final Assembly 

TJ 

IEM3874I 

Compiler control 

AA 

IEM2855I 

Final Assembly 

TJ 

I EM 38751 

Compiler Control 

AA 

IEM2865I 

Final Assembly 

TO 

IEM3876I 

Compiler Control 

AA 

I EM 2 8661 

Final Assembly 

TO 

IEM3877I 

Compiler Control 

AA 

IEM2867I 

Final Assembly 

TO 

IEM-3 87 8I 

Compiler Control 

A A 

IEM2868I 

Final Assembly 

TO 

I EM 38 8 01 

Compiler control 

AA 

I EM 28811 

Final Assembly 

TT 

| I EM 38 871 

Com.piler Control 

AA 

I EM 28821 

Final Assembly 

TT 

IEM3888I 

Compiler Control 

AA 

I EM 28 8 31 

Final Assembly 

TT 

I EM 38891 

Compiler Control 

AA 

IEM2884I 

Final Assembly 

TT 

IEM3890I 

Compiler Control 

AA 

IEM2885I 

Final Assembly 

TT 

I EM 38 911 

Compiler Control 

AA 

I EM 28 8 61 

Final Assembly 

TT 

IEM3892I 

Compiler Control 

AA 

IEM2887I 

Final Assembly 

TT 

I EM 38 9 31 

Compiler control 

AA 

I EM 2 8 8 81 

Final Assembly 

TT 

IEM3894I 

Compiler Control 

A A 

I EH 28971 

Final Assembly 

UA 

I EM 38951 

Compiler Control 

AA 

IEM2898I 

Final Assembly 

UA 

IEM3896I 

Compiler control 

AA 

I EM 2 8991 

Final Assembly 

DC 

IEM3897I 

Compiler Control 

AA 

I EM 2 9 0 0 1 

Final Assembly 

UC 

I EM 38 981 

Compiler Control 

AA 

I EM 2 9131 

Final Assembly 

UF 

| IEM3899I 

Com.piler Control 

AL 

IEM3088I 

Dictionary, Declare 

EL 

I EM 3 9 0 0 1 

Compiler Control 

AE 


Pa ss 2 


IEM39 Oil 

Compiler Control 

AB 

IEM3136I- 

Dictionary, Declare 

EL 

I EM 39 0 21 

Com.piler Control 

AB 

31491 

Pass 2 


| I EM 39 021 

Compiler Control 

AE 

IEM3151I 

Dictionary, Declare 

EL 

| IEM3903I 

Compiler Control 

AB 


Pass 2 


IEM3904I 

Coimpiler Control 

AA 

I EM 31531 

Dictionary, Declare 

EL 

IEM3905I 

Compiler Control 

AA 


Pass 2 


I EM 39 061 

Compiler Control 

AA 

I EM 31541 

Dictionary, Declare 

EL 

IEM3907I 

Compiler Control 

AA 


Pass 2 


I EM 39 081 

Compiler Control 

AA 

I EM 31561 

Dictionary, Declare 

EL 

| IEM3909I 

Compiler Control 

AL 


Pass 2 


j I EM 39101 

Compiler Control 

AB 

I EM 316 21 

Dictionary, Declare 

EL 

| IEM3911I 

Compiler Control 

AB 


Pass 2 


| IEM3912I 

Compiler Control 

AB 

IEM3167X- 

Dictionary, Declare 

EL 

I EM 41061 

Compile-time Processor 

AS 

31731 

Pass 2 


I EM 41091 

Compile-time Processor 

AS 

IEM3176I- 

Dictionary, Declare 

EL 

I EM 41121 

Compile-time Processor 

AS 

31901 

Pass 2 


I EM 41151 

Compile-time Processor 

AS 

IEM3199I- 

Dictionary, Declare 

EL 

I EM 41181 

Compile-time Processor 

AS 

32131 

Pass 2 


IEM4121I 

Compile-time Processor 

AS, BC,EG 

I EM 35841 

48 Character 

BX 

IEM.4124I 

Compile-time Processor 

BC , BG 


Preprocessor 


IEM4130I 

Compile-time Processor 

BG 

IEM3840I 

Compiler Control 

AA 

I EM 41331 

Compile-time Processor 

BC 

IEM3841I 

Compiler Control 

AA 

IEM4134I 

Compile-time Processor 

BC 

IEM3842I 

Compiler Control 

AA 

I EM 41361 

Compile-time Processor 

BC 

IEM3843I 

Compiler Control 

AA 

IEM4139I 

Compile-time Processor 

BC 

IEM3844I 

Compiler Control 

AA 

IEM4142I 

Compile— time Processor 

EC 

I EM 38 453! 

Compiler Control 

AA 

I EM 41431 

Compile-tiire Processor 

BC 

I EM 38 4 63! 

Compiler Control 

AA 

I EM 41481 

Coir.pile-time Processor 

BC 

IEM3847I 

Compiler Control 

AA 

IEM4150I 

Compile-time Processor 

BC 

IEM3848I 

Compiler Control 

AA 

I EM 4 15 11 

Compile-time Processor 

3C 

I EM 3 84 91 

Compiler Control 

AA 

I EM 41521 

Cornpiie-time Processor 

BC 

I EM 38 501 

Compiler Control 

AA 

IEM4153I 

Conpile-tiire Processor 

BC 

IEM3851I 

Compiler Control 

AA 

IEM4154I 

Compile- time Processor 

BC 

I EM 3 8 521 

Compiler Control 

AA 

IEM4157I 

Compile-tirre Processor 

BC 


Appendix I: Diagnostic Messages 427 



IEM4160I Compile- time Processor BC 
IEM4163I Compile-time Processor BC 
IEM4166I Compile-time Processor BC 
IEM4169I Compile-time Processor BC 
IEM4172I Compile-time Processor BC 
IEM4175I Compile-time Processor BC 
IEM4176I Compile-time Processor BC 
I EM 4 17 8 I Compile-time Processor BC 
I EM 41841 Compile-time Processor BC 
IEM4187I Compile-tirne Processor BC 
IEM4188I Compile- time Processor BC 
IEM4190I Compile-time Processor BC 
I EM 41931 Compile- time Processor BC 
I EM 41961 Compile-time Processor BC 
IEM4199I Compile-time Processor BC 
IEM4202I Compile-time Processor BC 
IEM4205I Compile-time Processor BC 
IEM4208I Compile-time Processor BC 
IEM4211I Compile-time Processor BC 
IEM4212I Compile-time Processor BC 
IEM4214I Compile-time Processor BC 
IEM4217I Compile-time Processor BC 
IEM4220I Compile-time Processor BC 
IEM4223I Compile-time Processor BC 
IEM4226I Compile-time Processor BC 
I EM 4 22 91 Compile-time Processor BC 
1EM42321 Compile-time Processor BC 
IEM4235I Compile-time Processor BC 
I EM 4 2 381 Compile-time Processor BC 
I EM 4 2411 Compile-time Processor BC 
I EM 4 24 41 Compile-time Processor BC 
IEM4247I Compile-time Processor BC 
I EM 4 24 81 Compile-time Processor BC 
IEM4250I Compile-time Processor BC 
IEM4253I Compile-time Processor BC 
IEM4254I Compile-time Processor BC 
IEM4256I Compile-time Processor BC 
IEM42591 Compile-time Processor BC 
IEM4262I Compile-time Processor BC 
IEM42651 Compile-time Processor BC 
I EM 42711 Compile-time Processor BC 
IEM4277I Compile-time Processor BC 
I EM 4 28 01 Compile-time Processor BC 
IEM4283I Compile-time Processor BC 
IEM4286I Compile-time Processor BC 
IEM42891 Compile- time Processor BC 
IEM4292I Compile-time Processor BC 
IEM4295I Compile-time Processor BC 
IEM42961 Compile-time Processor BC 
IEM4298I Compile-time Processor BC 
IEM4299I Compile-time Processor BC 
IEM4301I Compile-time Processor BC 
IEM4304I Compile-time Processor BC 
IEM43071 Compile-time Processor BC 
IEM43101 Compile-time Processor BC 
IEM4313I Compile-time Processor BC 
IEM4319I Compile-time Processor BC 
IEM4322I Compile-time Processor BC 
IEM4325I Compile-time Processor BC 
IEM4328I Compile-time Processor BC 
IEM4331I Compile-time Processor BC 
I EM 4 3 321 Compile-time Processor BC 
I EM 4 33 41 Compile-time Processor BC 
IEM4337I Compile-time Processor BC 
IEM4340I Compile-time Processor BC 
IEM4343I Compile-time Processor BC 
IEM4346I Compile-time Processor BC 


IEM4349I Compile-time Processor BC 

IEM4352I Compile-time Processor BC 

IEM4355I Compile-tirne Processor BC 

IEM4358I Compile-tirne Processor BC 

IEM4361I Compile-tirne Processor BC 

IEM4364I Con-pile-time Processor BC 

IEM4367I Compile-tirne Processor BC 

IEM4370I Compile-tirne Processor BC 

IEM4373I Compile-time Processor BC 

IEM4376I Compile-tirne Processor BC 

IEM4379I Compile-tirne Processor BC 

I EM 4 3 8 2 1 Compile-tirne Processor BC 

1 EM 4 28 31 Com, pile-time Processor BC 

IEM4391I Compile-time Processor BC 

1 EM 43941 Compile-tirne Processor BC 

IEM4397I Compile-time Processor BC 

IEM4400I Compile-time Processor BC 

IEM4403I Compile-tirne Processor BC 

IEM4406I Compile-tirne Processor BC 

IEM4407I Compile-tirne Processor BC 

IEM4409I Compile-tirne Processor BC 

I EM 4 4121 Compile-tirne Processor BC 

IEK4415I Compile-tirne Processor BC 

IEM4421I Compile-tirne Processor BC 

IEM4433I Compile-tirne Processor BG 

1EM4436I Compile-tirne Processor BG 

I EM 4 4 391 Compiie-time Processor BG 

IEM4448I Compile-tirne Processor BG 

IEM4451I Compile-tirne Processor BG 

1 EM 44 521 Compile-tirne Processor BG 

IEM4454I Compile-tirne Processor BG 

IEM44 57I Compile-tirne Processor BG 

IEM4460I Compile-tirne Processor BG 

IEM4463I Compile-tirne Processor BG 

I EM 4 4 691 Compile-tirne Processor BG 

IEM4472I Compile-tirne Processor BG 

IEM4473I Compile-tirne Processor BG 

IEM4475I Compiie-time Processor BG 

IEM4478I Compile-time Processor BG 

IEM44811 Compile-tirne Processor BG 

IEM44841 Com, pile-tin, e Processor BG 

IEM44991 Compile-tin e Processor BG 

IEM4502I Compile-tirne Processor BG 

IEM4504I Compiie-time Processor BG 

IEM4505I Compiie-time Processor BG 

IEM4506I Com.piie-tirre Processor BG 

1EM4508I Compiie-time Processor BG 

IEM4511I Compile-tirne Processor BC 

IEM4514I Compile-tirne Processor BG 

IEM4517I Conipile-time Processor BG 

IEM4520I Compile-tirne Processor BG 

IEM4523I Compiie-time Processor BG 

IEM4526I Compile-tirne Processor AS 

IEM4529I Compile-tirne Processor BC , BG 

IEM4532I Compile-tirne Processor AS 

IEM4535I Compile-tirne Processor AS 

IEM4538I Compile-tirne Processor BC 

IEM4547I Conipile-time Processor AV 

IEM4550I Compile-tirne Processor BG 

IEM4553I Compile-tirne Processor BG 

IEM4559I Compiie-time Processor BG 

IEM4562I Comipile-time Processor BG 

IEM4570I Compiie-time Processor BG 

IEM4572I Compile-tirne Processor BG 

IEM4574I Compile-tirne Processor BG 

IEM4576I C'ompile-time Processor BG 

IEM4578I Compile-tirne Processor BG 
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APPENDIX 


: COMPILE-TIME PROCESSOR 


This appendix describes, for the 
Compile-tirne Processor Logical Phaser the 
internal formats of text and tables, com- 
munication region use, Operating System 
interfaces and compiler control interfaces. 


1. INTERNAL FO RM ATS OF TEX T 


The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, non- 
macro text is moved directly into text 
blocks after translation to internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 


Format of a Dic tio na ry Entr y 


The compile-time processor uses a set of 
chained dictionary entries. Hashing tech- 
niques are used to add an item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable-length item with the following 
skeletal formats 

The fields defined in this skeleton have 
the following meaning and usage: 

LENGTH: The length of the EBCDIC name. If 
the item has no name (e.g., a 
constant) this field is zero. 

PROC NO. : The number assigned to the proce- 
dure in which the identifier was 


declared. Each procedure is 

assigned a unique number. The 
identifiers in the non-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 

HASH-CHAIN-POINTER: The dictionary address 
of the next item on this hash 
cnain. This address is zero if nc 
item follows. 

TYPE: A byte which gives the attributes of 
the entry. The bits (if on) have 
been assigned the following mean- 
ings : 

bit Meaning 

1 fixed 

2 character 

3 bit 

4 entry 

5 label 

6 INCLUDE identifier 

7 iterative DO 

8 constant 

VALUE/VALUE-POINTER: If the item is fixed, 
this contains the value proper 
stored as a five-digit packed deci- 
mal number. Otherwise it contains 
a pointer to the value stored in 
IVEs. The definition of value for 
the various kinds of entries is 
given relow. For a fixed macro 
variable, this contains the value. 
For a character variable, it con- 
tains a pointer to IVEs containing 
the value. For a procedure, it 
points to the text-block location 
of the code. For a label, it 


Byte 1 Byte 2 Byte 3 Byte 4 

Word 1 
Word 2 
Word 3 
Word 4 
Word 5 


Word n 
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points to the text-block location 
of the label. If references to the 
label are found before the label is 
discovered, the value pointer tem- 
porarily points to a chain of IVBs 
with a description of every GOTO 
transferring to this label. This 
information is processed and dis- 
carded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 

FLAGS: This set of oits provides additional 
information about the use of the 
item. They are used as follows: 

BIT M EANIN G 

1 special entry bit 

2 DECLARE encountered (Phase 

BC) 

3 procedure body encountered 
(Phase EC) 

4 parameter 

5 used to indicate a procedure 
called by Phase II scan. 

6 DECLARE encountered (Phase 

BG) 

7 unused 

8 ACTIVATE bit 

9 "in-use" bit 

10 "indirect reference" bit 

11 "undefined" bit for multiple 
declarations 

12 left-hand side (LHS nit) 

This field occupies a half-word. 

COUNT: For a procedure entry, this field 
contains a count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero ini- 
tially, and subsequently contains 
the initial line number assigned to 
the included text. 

POINTERS/PARAM-TYPES : For a procedure, the 
field contains an encoding of the 
type information for each formal 
parameter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates charac- 
ter. If neither bit is set, this 
indicates that the entry declara- 
tion did not specify attributes for 
the parameters. 

For a label, word 4 contains two 
pointers to dictionary items. One 
points to tne dictionary entry for 
the immediately embracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of GOTOs. 
For an INCLUDE identifier, only the 


pointer to the immediately embrac- 
ing INCLUDE is kept. 

During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 
number which have been used but not 
defined. This information is used 
only is Phase I and can therefore 
be overlaid. 

EBCDIC NAME: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
tiiis field is not included. 


Fo rmat of an Identifier Valu e Bl ock (IV B) 


To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in tne 
preceding IVB. This copy is made to facil- 
itate backup. The last four bytes consist 
of a condition code of one byte followed by 
a 3-byte chain pointer. A set of these 
sub-blocks, chained together, is used to 
| hold a value. The condition byte is 27 for 
all except the last sub-block in a value. 
In this last condition code byte the first 
bit is set to 1 to indicate "end-of-value . " 
The remaining bits are a count of the 
significant bytes in the sub-block. There 
is a maximum of 27 significant bytes in an 
IVB. 

The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on hew the chain is 
being used. 

These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs. 

Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not cur- 
rently in use are chained together into an 
availability chain and are re-used when 
needed . 

An example of a character string value 
held in IVBs is shown. The character 
string, which starts with AE and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AB...C is put into the first. IVB, 
while the last character, D, is put into 
another IVE. The condition cede byte of 
Jthe first IVB is 27. The second condition 
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1 


r t t i r t t 

| ?AB ... C j 0 I > j CD/ / /// I 100000011 ? | 

L X X_J L X X J 

< 28 > 1 3 < 28 > < 1 > <- 3- > 


code byte is 10000001. The first "l" 
indicates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB . 

Besides holding character-string values, 
IVBs are used in rrany places by the 
compile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 


Instruction Code s for the Compile-tiire 
pro c essor 

Compile-time statements are handled in 
two parts. During Phase BC, each statement 
is recognized and syntax checked. An 
encoded form of the statement is then 
placed into the current text block. During 
Phase BG these encoded statements are exe- 
cuted by an interpreter. 

All expressions are encoded in postfix 
Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 

Thus the expression (A+B)||C, for exam- 
ple, is turned into 

A B + C| | 

To be more explicit, it is turned into the 
instructions 

PUSH A; 

PUSH B 

ADD; 

PUSH C; 

CONCAT 

The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is a status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect ref- 
erence to a dictionary entry if the indi- 
rect bit is on. 

The bits of the status byte have the 
following meaning if set to one: 


BI T MEANIN G 

1 JrIXED 

2 CHARACTER 

3 BIT 

4 Indirect reference (i.e., points 

to a dictionary entry) 

5 Character string value does not 

"belong" to the stack and should 

not be erased when stack is 
popped. (Shared with Phase BG 
scan . ) 


Bits 6-8 are unused by the interpreter. 
They are reserved for Phase EG scan. 


All instructions generated by the Phase 
BC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 


1. STACK. These instruction consist only 
of the one-byte operator. They taxe 
their operands, if any, from the Phase 
II stack. These operators correspond 
in general to the PL/I arithmetic and 
string operators. Depending on wheth- 
er they are unary or binary, they use 
the top one or two items on the stack. 
Before these operands are used, they 
are converted, if necessary, i n p la ce 
to the required type. After the items 
are used they are popped from the 
stack. The result of the operation is 
pushed onto the stack. 


The conversion, the popping, and the 
pushing are all implied for a stack 
operator. 

2. FIXED LENGTH. These operations are 
followed by a fixed number of. bytes -- 
usually two. These oytes, which usu- 
ally refer to a dictionary entry, 
serve as the operand (s) of the 
instr uction. 

The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable-lengrh 
item. The count byte is omitted. 
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j MNEMONIC | TYPE 

I- + 


OPERAND DESCRIPTION 


FUNCTION 


| ADD 

j STACK 

j BINARY; OPERANDS, RESULT FIXED 

i 

j A + B 

1 


| SUB 

1 

| STACK 

1 

1 

| BINARY; OPERANDS, RESULT FIXED 

i 

1 

| A-B 

1 


| MUL 

1 

| STACK 

1 

1 

j BINARY; OPERANDS, RESULT FIXED 

i 

1 

| A*B 
| 


| DIV 

1 

| STACK 

i 

1 

| BINARY; OPERANDS, RESULT FIXED 

| A/B 

1 


| UNMIN 

1 

j STACK 

i 

1 

j UNARY; OPERAND, RESULT FIXED 

i 

j-B 

1 


| UNPLS 

1 

| STACK 

I 

1 

| UNARY; OPERAND, RESULT FIXED 

i 

1 

1 + B 

1 


| ASSIGN 3 - 

1 

| STACK 
| FIXED 

I 

1 

| UNARY; B CONVERTED TO TYPE OF A 

1 

I 

1 

(A=B (assignment) 

1 

| 


| NOT 

1 

| STACK 

I 

1 

| UNARY; OPERAND, RESULT BIT 

1 

hB 

1 


| AND 

1 

| STACK 

i 

1 

| BINARY ; OPERANDS, RESULT BIT 

i 

1 

| A6B 
j 


| OR 

1 

| STACK 

i 

1 

| BINARY; OPERANDS, RESULT BIT 

1 A | B 

1 


| CONCAT 

1 

| STACK 

i 

1 

| BINARY; OPERANDS, RESULT CHAR 

i 

1 A | | £ 

| 


I EQU 2 

1 

| STACK 

i 

1 

j BINARY ; OPERANDS, RESULT VARY 

i 

1 

| A=B (equality) 

i 


| GT 2 

1 

j STACK 

i 

1 

j BINARY; OPERANDS, RESULT VARY 

i 

1 

j A>B 


| LT 2 

1 

j STACK 

■ 

1 

(BINARY; OPERANDS, RESULT VARY 

i 

( A<B 

l 


| INC 

1 

j FIXED 
■ 

1 

| Two-byte dictionary reference 

i 

1 

| INCLUDE A 

1 


| ABORT 

1 

j FIXED 

i 

1 

| One-byte code 

i 

1 

| ABORT processing 

l 


| TRA 

1 

j FIXED 

1 

| Two-byte dictionary reference 

i 

1 

(Transfer to label 


|TRAC 

1 

j FIXED 

i 

1 

(Two-byte dictionary reference 

1 

(Transfer to label 

i 

| TRAF 3 

j STACK 

| FIXED 

1 

1 

| Two-byte dictionary reference 

1 

1 

i i 

(Transfer to label | 

(if top of stack false. | 

| j 

| INV 5 

1 

j STACK 
| FIXED 

i 

1 

| Two-byte dictionary reference and 
(a one-byte argument count 

1 

1 1 

| Invokes the procedure | 

1 

| TRAI 4 

1 

| FIXED 

i 

1 

| two two-byte dictionary references 

i 

1 i 

(Transfer out of INCLUDE | 

i i 

| PUSH 

1 

j FIXED 

i 

1 

(Two-byte dictionary reference 

i 

|Push A onto stack 

i 

i 

| PUSHI 

1 

j FIXED 

1 

1 

1 

(Two-byte dictionary reference 

1 

i 

1 

|Push address of A 
j onto stack 

i 


| UPDT 

1 

j FIXED 

1 

1 

| Three-byte line count 

i 

1 

|Put line count into 

i 

LINCNT | 

| ENTM 

1 

j FIXED 

l 

| no operand 

I 

1 

| Enter interpreter 

I 


| RTNS 

1 

j FIXED 

i 

1 

| no operand 

1 

| Return to Phase II 

i 

scan | 

|EN3 

1 

| FIXED 

i 

1 

| Two-byte dictionary references 

i 

1 

(ACTIVATE A 

1 


| DSB 

1 

| FIXED 

l 

1 

|Two-byte dictionary references 

i 

(DEACTIVATE A 

1 


| DCL 

1 

j FIXED 

i 

1 

(Dictionary reference 

1 

| DECLARE A 

1 


| NOPD 

1 

j FIXED 

1 

1 

(Dictionary reference 

1 

1 

(No-ops the DECLARE, 
j executed 

once | 
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r T T T 1 

j MNEMONIC | TYPE | OPERAND DESCRIPTION | FUNCTION | 

j. 1 -j- -f -j 

| CVT 6 | FIXED (Dictionary reference | Convert to RETURNS | 

III | attribute | 

III I I 

|RETN 7 | FIXED (Dictionary reference | Return from procedure A | 

i- x x x * -i 

l^-The ASSIGN operator does not push a result. The expression result is found on| 
j the PDS and is popped; the dictionary reference for the left hand side is the j 
j single argument. | 

| 2 0perand conversion for EQU, GT, and LT is as specified in IBM Syst em/3 60 | 

I Op e rating S ystem; PL/I Lang ua ge Specifi ca tions , Form C28-6571. j 

j 3 The TRAF uses and pops the top operand on the stack. It is treated as a bit j 
j string for conditional transfers. | 

| 4 This handles GOTOs out of included text. At this point CLNUP is performed. The j 
j arguments are (a) the dictionary entry for the label to which control is to pass; j 
| and (b) the dictionary entry for the current INCLUDE. j 

| 5 The arguments for the invocation are contained on the stack. The dictionary! 
j reference is to the procedure entry. j 

1 6 This converts the top of the stack to the attributes specified in the RETURNS j 
j attribute for the procedure A. j 

| 7 This terminates the invocation of procedure A and converts the value on the top j 
j of the stack to the attribute specified on the PROCEDURE statement. j 
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2 . COMMUNIC ATIO NS REGION USE 


The region from offset 0 to offset 304 
(ZCOMM) is used as a general communications 
region throughout the compiler, including 


the compile-time processor. The region 
from ZCOMM to ZCOMM+463 is also used by the 
compiler; however, during the compile-time 
processor phase, this region is used exclu- 
sively by the compile-time processing. The 
details of this usage are shown below. 
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Name 


Offset Length 


Contents 


STATUS 


STA2 


SUBSTRDR 

TOKPTR 

INCPTR 

INBUF 

OUTBUF 

PDSPTR 

ENDBUF 

WHERE 

IVBPTR 

LINCNT 

TEMPTR 

DCENTY 

CURINC 

CURDO 

PROCNO 

NXTPC 

DPHCNT 

CODE 

LENGTH 


ZCOMM 


ZCOMM+1 


ZCOMM +2 
ZCOMM +4 

ZCOMM +3 
ZCOMM+1 2 
ZCOMM+1 6 
ZCOMM+20 
ZCOMM+24 

ZCOMM+28 

ZCOMM+32 
ZCOMM+36 
ZCOMM+40 
ZCOMM+42 
ZCOMM+44 
ZCOMM+46 
ZCOMM+4 8 
ZCOMM+4 9 
ZC'OMM+50 
ZCOMM+52 
ZCOMM+54 


1 


1 


2 

4 

4 


Byte 1: Bit 

Not e: 
Condition 
Settings 
"1" = set 
"0" = off 


0 not used 

1 PROCSW — processing macro procedure 

2 FINDBIT -- SRHDIC has found dictionary item 

3 ERSW — diagnostic produced in Phase II 

4 EFSW — end of file encountered (input) 

5 LEVBIT — processing IVB 

6 INCSW -- processing included text 

7 PH2SW — in Phase II 


Byte 2: Bit 0 OLDINC — processing already listed INCLUDE 

1 SKPSW — indicates entry to END from PRCSCN 

2 NOPERCENTSW -- look ahead for % completed 

3 SYSOPN — SYSLIB DCB is open 

4 MACRO — indicates current macro action 

5 PR2SW — indicates in macro procedure 

7 ARG — indicates that Phase II is looking for 
arguments of activated procedure 


Holds dictionary reference of 0 level SUBSTR entry 

Address of character being scanned, text reference or 
absolute, right justified 


Save area for TOKPTR 


4 Absolute address of input buffer, right justified 

4 Absolute address of output buffer, right justified 

4 Absolute address to top of pushdown stack, right justified 

4 Absolute address to last significant character in input 

buffer, right justified 

4 Address of next available oyte in output buffer, text 

reference or absolute, right justified 

4 Text reference to next free IVB, right justified 

4 Holds current line number, right justified 

2 Dictionary reference to top of "in-use" temporary stack 

2 Dictionary reference for chaining dictionary iteirs 

2 Dictionary reference to INCLUDE entry being processed 

2 Dictionary reference to DO entry being processed 

1 Current procedure number, right justified 

1 Next available procedure number, right justified 

2 Current depth count 

1 Code for token type 

2 Number of signifiant characters in TOKBUF , right justified 
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MXDPTH 

ZCOMM+56 

2 

INDEX 

ZCOMM+58 

2 

ATTR 

ZCOMM+60 

2 

GRSAVE 

ZCOMM+64 

4 

NEWIVB 

ZCOMM+6 8 

4 

VALUE 

ZCOMM+72 

4 

PREINB 

ZCOMM+76 

4 

BUFSRT 

ZCOMM+80 

4 

INIVB 

ZCOMM+84 

1 

OUTIVB 

ZCOMM+85 

1 

TXTBLK 

ZCOMM+86 

1 

INVBAB 

ZCOMM+88 

4 

OUTIVBAB 

ZCOMM+92 

4 

TXTBLK AB 

ZCOMM+96 

4 

MTABC 

ZCOMMi+lOO 

4 

TXTEST 

ZCOMM+104 

4 

BUF1 

ZCOMM+108 

4 

BUF2 

ZCOMM+112 

4 

LIBDCB 

ZCOMM+116 

4 

USRDCB 

ZCOMM+120 

4 

MAXLCT 

ZCOMM+124 

4 

PRCWHR 

ZCOMM+128 

4 

DCENTYAB 

ZCOMM+132 

4 

SCKK 

ZCOMM+136 

4 

PROCCL 

ZCOMM+140 

2 

OUTERCL 

ZCOMM + 14 2 

2 

PROCCLDR 

ZCOMM+144 

2 

OUTRCLDR 

ZCOMM+14 6 

2 

DECIDR 

ZCOMM+148 

4 

CURPRC 

ZCOMM+152 

4 

TOKBUF 

ZCOMM+164 

32 

HASTB 

ZCOMM+300 

128 

CONSCH 

ZCOMM+428 

2 

SPECCH 

ZCOMM+430 

2 


Integer value of depth of replacement, right justified 
Hash table index for dictionary routines 
"Type" byte for dictionary routines 
Save area for GRG 

Pointer to IVB chain to be freed or obtained 

Type and value/value pointer for dictionary entries 

Pointer to header information for INBUF 

Pointer to left margin in INBUF 

Current busy block number 

Current busy block number 

Current busy block number 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Address of translate table for TOKSCN and FINDPC 

Length of text block adjusted for chain address 

Pointer to first INCLUDE buffer 

Pointer to second INCLUDE buffer 

Pointer to DCB for SYSLIB data set 

Pointer to DCB for user data sets 

Maximum line count used so far 

Pointer to next byte in which to put procedure text 

Absolute address of dictionary entry 

Pointer to level 1 SUBSTR entry 

Dictionary reference of procedure check list 

Dictionary reference of outer check list 

Dictionary reference for PRCCCL cell 

Dictionary reference for OUTERCL cell 

Dictionary reference of dictionary entry for DECIMAL 1 

Pointer to current procedure entry on PDS 

32-byte buffer, characters inserted left justified 

64 two-byte dictionary references to hash chains for named 
items 

Dictionary reference to constant chain 

Dictionary reference to special chain — debugging only 
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3 . COMPILE-TIM E PROCESSOR , OPERATING 

SYS TEM, A ND C OMPILER CONTROL INT ERF ACES 


Although the compile-time processor 
makes considerable use of the Operating 
System facilities, it usually does so indi- 
rectly through the compiler control. \ How- 
ever, those Operating System services 
required to support the INCLUDE facility 
are invoked directly. Since included text 
is required to be a member of a partitioned 
data set, it is those data management 
facilities which support BPAM which are 
used. Specifically the macros OPEN, FIND, 
CLOSE, READ and CHECK are used by various 
parts of the INCLUDE handler.' Details of 
these macros can be found in I BM System /360 
Operating System: Con t rol P r ogra m Se rvices , 
Form C28-6541. 


The root phase is invoked by the compil- 
er control if the MACRO option is speci- 
fied. All subsequent communication between 
the compile-time phases and the compiler 
control is done by way of cells in the 
communications region. This includes the 
parameters passed to the F service rou- 
tines, the decoded options which are test- 
ed, and the cells set to indicate t^e 
status of source margins and mode (EBCDIC) 
of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 

PARI 

PAR2 


ZTV 

ZMYNAM 

MCSIZE 

CCCODE 

TXTSZ 

ZSOR -- column number in which to begin 
scan of input text 

ZMAG — column number in which to end 
scan of input text 

ZTRAN1 

The following compiler control routines 
are referenced: 


ZUPL 

RELESE 

ZURD 

RLSCTL 

ZUGC 

ZTXTRF 

ZUTXTC 

ZTXTAE 

ZURC 

ZCHAIN 

ZABORT 

ZALTER 

ZLOADW 

ZDABRF 

ZDICRF 

ZEND 

ZUERR 

ZUBW 

ZDRFAB 
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INDEX 


Abbreviations in text during 
compilation 396-404 
ABS 51 

Absolute addresses, conversion from 15 
ADDR built-in functions 50 
Adjustable bound expressions 60 
Adjustable length constants 34 
Aggregate, DEFINED 61 
AGGREGATE LENGTH TA3LE 61 
phase 61 

Aggregates Logical Phase 19,45-46 
ALLOCATE chain 29 

pointer-variable in the SET option 53 
statements 39,44,52,53,60 
triples 48 

ALLOCATE statements 36 
format of 380 

with based variables as arguments 53 
AND 4 9 

functions 50 
operations 50 

Annotated Dictionary Dump 25,26 
Annotated Text Dump 25 
AREA 34 

references 45 
variables 38 

AREA arrays and structures storage 
mapping 45,46 

AREA condition dictionary entry 38 
Arguments 52,53 

based variables 53 
expressions 41 

passed to library routines 45 
Arithmetic triples 49 
Arithmetic registers 47 

Array and structure arguments to built-in 
function 44 
Array bounds 

expressions specified for 32 
format of the second file statement 391 
identifiers with identical array 
bounds 34 

Array expressions 40,43 
in I/O lists 43 
Array mapping 19 

Array string dope vector, size of 60 
Arrays 

adjustable 45 

arguments to built-in functions 44 

assignments 40,43 

base 43 

defined 43 

EVENT 53 

having adjustable bounds 35 
INITIAL 58 

initial value string 48 
mapping of 45 

non-structured arrays in AUTOMATIC 360 
non-structured arrays in STATIC 
INTERNAL 360 
partially subscripted 42 
STATIC INTERNAL 58 


unsubscripted 43 

Arrays of strings with the VARYING 
attribute 

secondary dope vector 59 
Arrays storage mapping 45,46 
ASSIGN statement 
format of 377 
Assignment statements 
nested 43 
Assignments 40,43 
array 43 
scalar 43 

to chameleon dummy arguments 44 
Assignments coded in-line 55,56 
ATR 

attribute lister 39 
option 61 

ATR option Phase FX 39 
Attribute collection 34 
Attribute list 34 
Attributes 
BIT 34 
CHARACTER 34 
declarations 19 
default 35 
DEFINED 34,58 
DIMENSIONS 34 
factored 34 
generic 34 
INITIAL 36 
INITIAL CALL 34 
invalid and inconsistent 34 
LABEL 34 
LIKE 36 
PICTURE 34 
POSITION 34 
PRECISION 34 
SETS 34 

testing for consistent attributes 32 
USES 34 
AUTOMATIC 

chains 45,57 

non-structured arrays in 360 
non-structured scalar strings in 361 
AUTOMATIC chain delimiter, dictionary 
entry 366 entry 366 
AUTOMATIC structures 360 


Base elements of structures 
bounds 32 
BASED 34 

Second Pile Statements for 392 
variables 38 
BASED variable 36,39 
arguments 52,53 
Batch compilation 26,64 
Batch delimiter card 26 
BCD 

entries 364 
identifiers 19 
BEGIN 
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chains 28 
entries type 1 32 

statements 37,39,42 
triples 48 
BEGIN statement 
format of 376 
prologue 60 
BIT 34 

attributes 34 
string 49 
BLDL 

second half list 26 
BLDL macro 22 
Block levels 28 
Block Control 21 
Block header chains 33 
Block nesting levels and counts 30 
Block size 

dictionary 15,22,405 
text 15,22,405 
BOOL functions 
AND 50 

EXCLUSIVE OR 50 
In-line code 50 
OR 50 
Bounds 

for base elements of structures 32 
of temporary arrays 32 
Build list 22 

Built-in functions or programmer supplied 
procedures 51 
Built-in function table 44 
Built-in functions 
ADD 49,50 
ADDR 50 

array and structure arguments 44 
compiler 32,55 
COMPLETION 50 
Dictionary Entries 363 
DIVIDE 49 
EMPTY 41 
EXCLUSIVE OR 50 
generated in-line 45,51 
INDEX 45 
MULTIPLY 49 
NULL 41 
NULLO 41 
STATUS 50 
SUBSTR 45 
UNSPEC 45,50 
BUY 40,51,55,60 
BUY ASSIGN 

statements 55 
BY NAME option 40 
Byte 9 

Code Byte 365 
Bytes for 351 

Entry Dictionary Entries ENTRY 351 


CALL 

chain 29,35 
EVENT 51 
PRIORITY 51 
TASK 51 

to a Library epilogue routine 52 
CALL statement 37 
format 378 


procedure invocations 44,51 
Calls 

with arguments 41 
Cards 63 

loader text 63 
relocation directory 63 
CAT 4 9 

Cataloged procedures 15 
CCCODE 26 

format of 343 
Chains 

ALLOCATE 29 
AUTOMATIC 45,57 
BEGIN 28 
block header 33 
CALL 29,35 

circular PROCEDURE-ENTRY chain 34 

COBOL 45 

constants 57 

CONTROLLED 45,57 

DECLARE 29 

LIKE 36 

of DECLARE statements 34 
PROCEDURE 28 
PROCEDURE-ENTRY 33 
PROCEDUKE-ENTRY-BEGIN 29 
STATIC 45,57 

Chains constructed by Read-In 29 
CHARACTER 34 

attributes 34 
string 49 

Character translation 21 
Character Translation Tables 21 
CHECK 

conditions 40,42 
CHECK lists 38,42 
Entry 365 
List Processing 38 
CLOSE 

calling sequences 54 
Library modules 54 
CLOSE statements 
format of 380 
COBOL chain 45 
COBOL option 41 

COBOL structures storage mapping 45-46 
Code Byte 

Byte 9 365 

Dictionary entry 345,351 
ENTRY 351 

First Code Byte - Other 1 355 

for GOTO 37 

Fourth Code Byte - Other 4 356 

GOOB 37 

Optimization Byte 352 
Options 34,351 
Second 364 

Second Code Byte - Other 2 355 

Third Code Byte - Other 3 356 

Comments in the listing 64 
Communications region 17,21,407 
Communications Region - tables 408,413 
Communications region, compile-time 
processor 434 
COMPARE operator 49 
Comparisons 50 
triples 49,50 
string 49 
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Compilation 
batch 26 
bypassed 28 
termination of 45,65 
Compile-time expressions 431 
Compile-time macro operations 
table 432-433 
Compile-time Processor 

dictionary entries 429 
instruction codes 431 
internal format of text 429 
Compile-time Processor error messages 
text 28 

Compile-time Processor Logical Phase 429 
Compile-time Processor Phase 19,27 
Compile Time Processor Line numbering 27 
Compile-time Processor, communications 
region 434 

Compile-time statements 431 
syntax errors 28 
Compiler 

initialization 15 
input 15 
labels 361 
output 15 

Compiler completion codes 23 
Compiler Control module IEMAA 21 
Compiler control modules 24,27 
Compiler control routines 
entry to 407 
initialization 15 

Compiler Function - formats 390-393 
Compiler functions 32,55 
Compiler labels 

numbered for use 63 
Compiler options 
LINECNT 414 
SIZE 414 
SORMGIN 414 
table 25 

Compiler Organization 17 
Figure 3 18 

Compiler, overall flowcharts 67-68 
Compiler pseudo-variables and functions 32 
Compiler pseudo-variables 55 
Compiler subroutines 
text for 63 
COMPLETION 50 
Completion codes 23 
Concatenation 50 

of varying strings 50 
triples 45 

CONDITION conditions 38 
Conditions 
CHECK 40 
ON 40,365 

Constant subscript evaluation 
Optimization of 52 
Constants 30 

adjustable length 34 
chain 38 , 57 

Dictionary Entries from 362 
FILE 362 

file constants with the ENVIRONMENT 
option 41 
fixed length 34 
label 361 
Sterling 38 


Constants, phase CS 56 
Constructing and accessing the 
Dictionary 31 
Control block 
DECLARE 41 
Control code word 
format of 343 
CONTROL COLUMN 414 
Control Flow 
Figure 3 18 

Control phase 17 
Control program 

of the Operating System 15 
CONTROLLED 

Array 360 
chains 45 
Structures 360 
CONTROLLED chain 57,63 
CONTROLLED variable 63 
Conversion from absolute addresses 15 
Conversion of symbolic references 15 
Conversions, Phases OG,OM,OP 56 
Correspondence defining 39 
CSECT 

Program Control Section 63 
STATIC internal 63 


Data 

Dictionary Entries for 352 
dynamically defined 39 
options 41 
Data Byte 357 
Data interchange 45 
Data Items 

Dictionary Entries for 352 
Data lists 41 
Data sets 24 
SYSIN 21 
SYSPRINT 21 

Data/format lists in I/O statements 55 
DCLCB parameter 

from the FILE option 53 
Declarations 

attribute 19 
DECLARE 

chain 29 
control block 41 
format of 380 
statements 32,37 

DED 

Dictionary Entry 366 
DED-Data element descriptor 58 
DED2 

Entries 367 
DEFINED 34,58 

chain check 45 
dynamically 58 

items wbicn are to be addressed 
directly 59 

Second File Statements for 393 
DEFINED aggregate 61 
DEFINED data 35 

Dictionary entries for 39 
DEFINED STORAGE MAPPING 45,46 
Defining 

correspondence 39 
dynamic 39 
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Mixed scalar-array- structure- string 
class overlay 46 
overlay 39 

Scalar overlay defining 46 
static 39 

undimensioned structure overlay 
defining 46 
DELAY statement 52 
format of 379 
DELETE 

statements 53 
Descriptors 

Temporary 47 
Device type options 15 
Diagnostic Message Control 21,22 
Diagnostic messages 20,29,64,422-428 
Dictionary 17 

block size 15,405 
Constructing and Accessing 31 
diagnostic message chain in the 
dictionary area 29 
dump of 25 
extended 26 

first dictionary block 17 
hash table 31 
normal-sized 26 

Dictionary and text block size 22 
Dictionary area 

dianostic message chain 29 
Dictionary blocks 
available 405 
first dictionary block 17 
Dictionary entries 39 

AUTOMATIC Chain Delimiter 366 
BCD 364 
BEGIN 33 

Built-in Functions 363 

CHECK list 365 

Code Byte 351 

compile-time processor 429 

Data Items 352 

DED 366 

DED2 367 

DEFINED data 39 

Dope Vector Descriptor 368 

Dope Vector Skeletons 366 

ENTRY 33 

Entry Points 32,347 
entries type 1 32 

entry type 4 32 

FED 367 

Internal Entry Point 33 
FILE 362 

list processing AREA condition 38 

Format Element Descriptor 367 

from Constants 362 

GENERIC entry labels 42 

INITIAL attributes 34 

Initial Values 369 

item described by a picture 39 

Label 352 

Label BCD 367 

ON conditions 33,59 

OPEN control block 41 

option 41 

parameter descriptions 364 
PICTURE 34,365 
PICTURE 365 


PROCEDURE 33 
RECORD dope vector 367 
skeleton dope vector 58 
STATIC DSA 57, 368 
Statements 34,35,37 
Structure Items 352 
Symbol Table 366 

Dictionary entries for Label Variables 352 
Dictionary entries for Major and Minor 
Structures 353 

temporary variable 59 
Dictionary entries during the compilation 
formats of 345 
Workspace Requirement 366 
Dictionary Phase 19,31-40 
Dictionary reference 

of a POINTER in a PEXP pointer 
expression 39 
Dictionary references 
dummy 38 

Dimension Table 368 
Dimension table entries 34 
Dimension table 38 
DISPLAY statement 52 
format of 379 
DO groups 

nesting 48 

DO loop processing phases 44 
DO loops 48 
DO statement 37 
format of 377 
DO-nest levels 28 
Dope Vector Descriptor Entry 368 
Dope Vector Entries for Temporaries 367 
Dope Vector Skeletons, Dictionary 
Entries 366 

Double stack translation 43 
DSA optimization 60,420-421 
Dummy arguments 

assignments to chameleon dummy 
arguments 44 

Dummy dictionary references 
statements containing 38 
Dump 25,26 

Annotated Dictionary 26 
Annotated Text 25 
dictionary codes used 25 
easy-to-read text print 26 
inter-phase 25 
of the dictionary 25 
SYSPRINT 25 
DUMP option 25 

Dynamic initialization phases 44 
Dynamic Prologue Subroutine code 420-421 
Dynamically defined data 39 


EDIT option 41 
Edit-directed I/O 54 
EMPTY built-in function 41 
END card 64 
END statement 37,42 
format of 376 
Entry labels 
GENERIC 42 
Entry name 

generic entry name arguments to 
procedure invocations 51 


Index 
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Entry Point 

Dictionary Entries for an Internal Entry 
Point 33 

Entry Points 32,347 

Dictionary Entries 347 
External 32 
formal parameters 32 
parameter descriptions 32 
to Library routines IHESADA and 
IHESADE 63 

Entry Requiring Additional Comparisons 
Format of 342 
ENTRY statement 

entry type 1 348 

format of 376 
Entry type 1 348 

ENTRY statement 348 
Entry type 1 chain 63 
Entry type 1 for 
BEGIN 347 
ENTRY 347 
PROCEDURE 347 


Entry 

Type 2 

349 



Entry 

Type 3 

349 



Entry 

Type 4 

350 



dictionary 

entries 

32 

Entry 

Type 5 

351 



ENVIRONMENT option 

41 


EOB operator 

44 



Error 

editor 

65 



Error 

Editor 

Phase 

20, 

64 


Error messages 
text of 65 

Error messages 422-428 

Errors and Diagnostic Messages 29 

ESD and RLD cards 20 

ESD cards 62,63 

EVENT 

array 53 
data 363 
option 51,54 

present in a CALL statement 42 
variables 38,51 
EVENT array dope vector 53 
EXCLUSIVE second level marker 41 
EXCLUSIVE OR functions 50 
EXIT 

format of 379 
statements 52 
Expression 

in a RETURN expression 32 
Expressions 

arguments 41 

array expressions in I/O lists 40 
evaluated at prologue time 38 
for array bounds 32 
structure 42 

Expressions - compile-time 431 
Expressions specified for 
string lengths 32 
Extended dictionary option 25,26 
Extent variable 

named in the REFER option 53 
External entries for Built-in functions 63 

External entries for EXTERNAL entry 

names 63 

External entries for files 63 

External entries for Library functions 63 


External entries for programmer ON 
conditions 63 

External entries for STATIC external 
variables 63 
External entry points 

dictionary entries 32 
External standard calling sequence 51 


Factored Attributes 34 
FED 

Dictionary Entry 367 
FILE 

Constants 362 
Dictionary entry for 362 
Environment Entries 362 
Parameters and Temporaries 362 
File constants 

STATIC chain 41 
FILE option 

DCLCB parameter 53 
Files 35 

Final Assembly Phase 20,62-64 
optimization 62 
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Format of 342 
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Format Element Descriptor 
Dictionary Entry 365 
Format of 
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General purpose register 
in pseudo-code 47 
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Obtained from DECLARE Statement 352 


possibly subscripted 52 
Subscripted 30 
Labels 

Compiler 361 
Initial 30 
Statement 34 
Large source programs 15 
Level Numbers 

Structure Level Numbers 34 
Levels 

block 28 
DO-nest 28 
Library 

FREEDSA 52 

invocations by a function 
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HF 

42, 162,174-175 

HK 

43,163,176 

HP 

43, 164, 177 

IA 

44,179,183 

IG 

44,180,186 

IL 

44,187 

IM 

44,181,187-189 
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IX 

45,184,190 

JD 

45, 185,191 

JI 

45,193,196 

JK 

45, 194,197-198 

JP 

46,195,199 

LA 

48,201,231-232 

LB 

48,202,233 

LD 

48,203,234 

LG 

48, 204,235-236 
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MI 

51, 212, 250 

MK 

51, 213,251 

ML 

51, 214,252 

MM 

51,215,252-253 
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PROCEDURE 
BEGIN 52 

calls with arguments 41 
chains 28 
entries type 1 32 

generic 45,51 
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PROCEDURE statement 33 
format of 375 
format of an entry for 347 
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Pseudo-code phase temporary result 
descriptors 393 
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Results 

Intermediate 48 
RETURN 
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RETURN statement 
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REVERT 

triples 52 
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EXTERNAL 361 
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STATIC 361 
STATIC INTERNAL 361 
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format of 368 
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PEXP 36 
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BASED 392 
DEFINED 393 
OFFSET 392 
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PROCEDURE BEGIN 33 
PUT 43 
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READ SET 41 
RECORD I/O 41,53 
Remote format 55 
REVERT 38 
REWRITE 53 
SELL 40,42,51,55 
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STOP and EXIT 52 
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UNLOCK 53 
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Figure 394 
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Text code Bytes on entry to Translator 
Phases 382-431 

Text Formats after Read-in Phase 375-380 
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RETURN 52 
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